CVSROOT:        /cvsroot/groff
Module name:    groff
Branch:         
Changes by:     Werner LEMBERG <[EMAIL PROTECTED]>      06/03/22 20:38:44

Modified files:
        .              : ChangeLog 
        src/preproc/pic: pic.y 

Log message:
        * src/preproc/pic/pic.y (expr <INT>): Fix code.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/groff/groff/ChangeLog.diff?tr1=1.938&tr2=1.939&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/groff/groff/src/preproc/pic/pic.y.diff?tr1=1.20&tr2=1.21&r1=text&r2=text

Patches:
Index: groff/ChangeLog
diff -u groff/ChangeLog:1.938 groff/ChangeLog:1.939
--- groff/ChangeLog:1.938       Wed Mar 22 08:05:07 2006
+++ groff/ChangeLog     Wed Mar 22 20:38:44 2006
@@ -1,3 +1,7 @@
+2006-03-22  Dwight Aplevich  <[EMAIL PROTECTED]>
+
+       * src/preproc/pic/pic.y (expr <INT>): Fix code.
+
 2006-03-22  Jörgen Grahn <[EMAIL PROTECTED]>
 
        * tmac/sv.tmac: Add missing translations and activate support for
Index: groff/src/preproc/pic/pic.y
diff -u groff/src/preproc/pic/pic.y:1.20 groff/src/preproc/pic/pic.y:1.21
--- groff/src/preproc/pic/pic.y:1.20    Tue Mar 21 07:57:57 2006
+++ groff/src/preproc/pic/pic.y Wed Mar 22 20:38:44 2006
@@ -1618,7 +1618,7 @@
        | K_MIN '(' any_expr ',' any_expr ')'
                { $$ = $3 < $5 ? $3 : $5; }
        | INT '(' any_expr ')'
-               { $$ = $3 < 0 ? floor($3) + 1 : floor($3); }
+               { $$ = $3 < 0 ? -floor(-$3) : floor($3); }
        | RAND '(' any_expr ')'
                { $$ = 1.0 + floor(((rand()&0x7fff)/double(0x7fff))*$3); }
        | RAND '(' ')'


_______________________________________________
Groff-commit mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/groff-commit

Reply via email to