Changeset 193

Timestamp:

Jan 3, 2004, 3:23:26 PM (21 years ago)

Author:

Gary Byers

Message:

%BIGNUM-BIGNUM-GCD wasn't zeroing out the buffers it (re-)uses, so use
a simpler algorithm (that conses more) until this is fixed.

File:

• trunk/ccl/level-0/l0-bignum.lisp (modified) (1 diff)

trunk/ccl/level-0/l0-bignum.lisp

@@ -2000 +2000 @@
         (logand mask (ash integer (- position)))))))    
 
+(defun %bignum-bignum-gcd (n1 n2)
+  (labels ((integer-gcd-sub (n1 n2)
+             (if (eql n2 0)
+               n1
+               (if (and (typep n1 'fixnum) (typep n2 'fixnum))
+                 (%fixnum-gcd n1 n2)
+                 (integer-gcd-sub n2
+                                  (if (> n2 n1)
+                                    (rem n2 n1)
+                                    (rem n1 n2)))))))
+    (if (< n1 0) (setq n1 (bignum-abs n1)))
+    (if (< n2 0) (setq n2 (bignum-abs n2)))
+    (if (> n1 n2)
+      (integer-gcd-sub n1 n2)
+      (integer-gcd-sub n2 n1))))
+
+#+fix-later
 (defun %bignum-bignum-gcd (u0 v0)
   (let* ((u-len (%bignum-length u0))