Changeset 7622

Timestamp:

11/09/07 16:41:47 (4 years ago)

Author:

gb

Message:

Try harder to scramble random state seeds. (This change was made before
the 0710 branch was created and was lost in a merge.)

Files:

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

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

@@ -1715 +1715 @@
 
 (defun init-random-state-seeds ()
-  (let* ((ticks (ldb (byte 32 0) (get-internal-real-time)))
-         (high (ldb (byte 16 16) ticks)) 
+  (let* ((ticks (ldb (byte 32 0) (+ (mixup-hash-code (%current-tcr))
+                                    (primary-ip-interface-address)
+                                    (mixup-hash-code
+                                     (logand (get-internal-real-time)
+                                             (1- most-positive-fixnum))))))
+         (high (ldb (byte 16 16) (if (zerop ticks) #x10000 ticks)))
          (low (ldb (byte 16 0) ticks)))
     (declare (fixnum high low))