Changeset 7350


Ignore:
Timestamp:
Oct 4, 2007, 5:11:08 PM (13 years ago)
Author:
gb
Message:

INIT-RANDOM-STATE-SEEDS: use (%current-tcr), (primary-ip-interface-address)
to generate more uniqueness.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-0/l0-numbers.lisp

    r7249 r7350  
    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                                             most-positive-fixnum)))))
     1722         (high (ldb (byte 16 16) (if (zerop ticks) 1 ticks)))
    17191723         (low (ldb (byte 16 0) ticks)))
    17201724    (declare (fixnum high low))
Note: See TracChangeset for help on using the changeset viewer.