Changeset 13133 for release/1.4


Ignore:
Timestamp:
Oct 30, 2009, 9:33:42 PM (10 years ago)
Author:
gb
Message:

Propagate r13132 to 1.4.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • release/1.4/source/level-0/l0-numbers.lisp

    r13075 r13133  
    17871787(defun init-random-state-seeds ()
    17881788  (let* ((ticks (ldb (byte 32 0) (+ (mixup-hash-code (%current-tcr))
    1789                                     (primary-ip-interface-address)
     1789                                    (let* ((iface(primary-ip-interface)))
     1790                                      (or (and iface (ip-interface-addr iface))
     1791                                          0))
    17901792                                    (mixup-hash-code
    17911793                                     (logand (get-internal-real-time)
Note: See TracChangeset for help on using the changeset viewer.