Ignore:
Timestamp:
Dec 22, 2009, 5:39:31 AM (10 years ago)
Author:
rme
Message:

In portable %mrg31k3p function, get the seed from the right
place in the random state object.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/new-random/level-0/l0-numbers.lisp

    r13323 r13324  
    18081808#-(or x8632-target ppc32-target x8664-target)
    18091809(defun %mrg31k3p (state)
    1810   (let* ((v state))
     1810  (let* ((v (random.mrg31k3p-state state)))
    18111811    (declare (type (simple-array (unsigned-byte 32) (*)) v)
    18121812             (optimize speed))
Note: See TracChangeset for help on using the changeset viewer.