Bignum division implemented. More portability bugs found in MPI:

code like 1 << n, where n exceeds the width of the type int.

* arith.c (trunc): New function, reimplementation of removed
trunc from lib.c.

* lib.c (trunc): Removed.

* mpi-patches/fix-bad-shifts: New file.

1 files changed, 0 insertions, 14 deletions

diff --git a/lib.c b/lib.c
index 1c510fd2..cd9d8edd 100644
--- a/lib.c
+++ b/lib.c
@@ -857,20 +857,6 @@ val mulv(val nlist)
   return reduce_left(func_n2(mul), cdr(nlist), car(nlist), nil);
 }
 
-val trunc(val anum, val bnum)
-{
-  cnum a = c_num(anum);
-  cnum b = c_num(bnum);
-
-  numeric_assert (b != 0);
-
-  {
-    cnum result = a / b;
-    numeric_assert (result <= NUM_MAX);
-    return num(result);
-  } 
-}
-
 val mod(val anum, val bnum)
 {
   cnum a = c_num(anum);