Changeset 7622


Ignore:
Timestamp:
Nov 9, 2007, 10:41:47 PM (12 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.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0710/ccl/level-0/l0-numbers.lisp

    r7442 r7622  
    17151715
    17161716(defun init-random-state-seeds ()
    1717   (let* ((ticks (ldb (byte 32 0) (get-internal-real-time)))
    1718          (high (ldb (byte 16 16) ticks))
     1717  (let* ((ticks (ldb (byte 32 0) (+ (mixup-hash-code (%current-tcr))
     1718                                    (primary-ip-interface-address)
     1719                                    (mixup-hash-code
     1720                                     (logand (get-internal-real-time)
     1721                                             (1- most-positive-fixnum))))))
     1722         (high (ldb (byte 16 16) (if (zerop ticks) #x10000 ticks)))
    17191723         (low (ldb (byte 16 0) ticks)))
    17201724    (declare (fixnum high low))
Note: See TracChangeset for help on using the changeset viewer.