Throw out the abort call, the reasoning seems to be false :-).

Change a round to a truncate. Problem reported from Christoph Kukulies:
9.8 2 / p did an IOT trap.
There is one remaining problem.: 9.8 2 % p shows on other machines 1.8
but does here in the moment 1.

2 files changed, 4 insertions, 4 deletions

diff --git a/gnu/usr.bin/dc/decimal.c b/gnu/usr.bin/dc/decimal.c
index 1fb95c1..24f59ef 100644
--- a/gnu/usr.bin/dc/decimal.c
+++ b/gnu/usr.bin/dc/decimal.c
@@ -119,7 +119,7 @@ decimal_copy_1 (b, digits)
       return result;
     }
   else
-    return decimal_round_digits (b, digits);
+    return decimal_trunc_digits (b, digits);
 }
 
 /* flush specified number `digits' of trailing fraction digits,
@@ -858,8 +858,8 @@ decimal_div (b1, b2, digits)
       return decimal_copy (DECIMAL_ZERO);
     }
 
-  if (lengthr <= (length1 - length2))
-    abort();		 /* My reasoning says this cannot happen, I hope */
+/*   if (lengthr <= (length1 - length2))
+    abort(); */		 /* My reasoning says this cannot happen, I hope */
 
   for (i = length1 - length2; i >= 0; i--)
     {
diff --git a/gnu/usr.bin/dc/decimal.h b/gnu/usr.bin/dc/decimal.h
index 2b41158..49f749d 100644
--- a/gnu/usr.bin/dc/decimal.h
+++ b/gnu/usr.bin/dc/decimal.h
@@ -84,7 +84,7 @@ typedef struct decimal *decimal;
 
 decimal decimal_add (), decimal_sub (), decimal_mul (), decimal_div ();
 decimal decimal_mul_dc (), decimal_mul_rounded (), decimal_rem ();
-decimal decimal_round_digits ();
+decimal decimal_round_digits (), decimal_trunc_digits ();
 decimal make_decimal (), decimal_copy (), decimal_parse ();
 decimal decimal_sqrt (), decimal_expt ();