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

using negation, not subtraction; this makes a difference with
IEEE floating point arithmetic (and also if integer arithmetic
is ones' complement or signed-magnitude!).

diff --git a/src/data.c b/src/data.c
index 9d3955dd3a9764dea0e4ed670adbb555458842ea..cb04426edf67c89fc86901027f1aa7a09a5be735 100644 (file)
--- a/src/data.c
+++ b/src/data.c
@@ -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;