Changeset 9795

Timestamp:

Jun 19, 2008, 6:31:57 PM (13 years ago)

Author:

rme

Message:

%bignum-random: Conditionalize for big/little endian targets.

File:

• branches/ia32/level-0/l0-numbers.lisp (modified) (1 diff)

branches/ia32/level-0/l0-numbers.lisp

@@ -1817 +1817 @@
     (declare (fixnum long-words words words-2 index bits)
              (dynamic-extent dividend)
-             (type (simple-array (unsigned-byte 16) (*)) 16-bit-dividend)       ; lie
+             (type (simple-array (unsigned-byte 16) (*)) 16-bit-dividend) ;lie
              (optimize (speed 3) (safety 0)))
     (loop
-      ;; This had better inline due to the lie above, or it will error
-      (setf (aref 16-bit-dividend index) (%next-random-seed state))
-      (decf half-words)
-      (when (<= half-words 0) (return))
-      (setf (aref 16-bit-dividend (the fixnum (1- index)))
-            (%next-random-seed state))
-      (decf half-words)
-      (when (<= half-words 0) (return))
-      (incf index 2))
+       ;; This had better inline due to the lie above, or it will error
+       #+big-endian-target
+       (setf (aref 16-bit-dividend index) (%next-random-seed state))
+       #+little-endian-target
+       (setf (aref 16-bit-dividend (the fixnum (1- index)))
+             (%next-random-seed state))
+       (decf half-words)
+       (when (<= half-words 0) (return))
+       #+big-endian-target
+       (setf (aref 16-bit-dividend (the fixnum (1- index)))
+             (%next-random-seed state))
+       #+little-endian-target
+       (setf (aref 16-bit-dividend index) (%next-random-seed state))
+       (decf half-words)
+       (when (<= half-words 0) (return))
+       (incf index 2))
     ;; The bignum code expects normalized bignums
     (let* ((result (mod dividend number)))