mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-24 10:38:38 +00:00
Code Issues Releases Activity

(arith_driver, float_arith_driver): Compute (- x) by

Browse Source 
using negation, not subtraction; this makes a difference with
IEEE floating point arithmetic (and also if integer arithmetic
is ones' complement or signed-magnitude!).
This commit is contained in:
Paul Eggert 1998-08-29 17:57:22 +00:00
parent e75ecfecdc
commit e64981da92
1 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/data.c
View File

@ -2203,9 +2203,7 @@ arith_driver (code, nargs, args)
{
case Aadd: accum += next; break;
case Asub:
if (!argnum && nargs != 1)
next = - next;
accum -= next;
accum = argnum ? accum - next : nargs == 1 ? - next : next;
break;
case Amult: accum *= next; break;
case Adiv:
@ -2265,9 +2263,7 @@ float_arith_driver (accum, argnum, code, nargs, args)
accum += next;
break;
case Asub:
if (!argnum && nargs != 1)
next = - next;
accum -= next;
accum = argnum ? accum - next : nargs == 1 ? - next : next;
break;
case Amult:
accum *= next;