Changeset 7391 for branches

Timestamp:

Oct 12, 2007, 2:23:29 AM (17 years ago)

Author:

Gary Byers

Message:

New 64-bit %BIGNUM-RANDOM.

File:

• branches/working-0710/ccl/level-0/l0-bignum64.lisp (modified) (1 diff)

branches/working-0710/ccl/level-0/l0-bignum64.lisp

@@ -2068 +2068 @@
 
 
+(defun %bignum-random (number state)
+  (let* ((ndigits (%bignum-length number))
+         (sign-index (1- ndigits)))
+    (declare (fixnum ndigits sign-index))
+    (with-bignum-buffers ((bignum ndigits))
+      (dotimes (i sign-index)
+        (setf (bignum-ref bignum i) (%next-random-seed state)))
+      (setf (bignum-ref bignum sign-index)
+            (logand #x7fffffff (the (unsigned-byte 32)
+                                 (%next-random-seed state))))
+      (let* ((result (mod bignum number)))
+        (if (eq result bignum)
+          (copy-uvector bignum)
+          result)))))
+
+
+
 (defun logbitp (index integer)
   "Predicate returns T if bit index of integer is a 1."