Changeset 6011


Ignore:
Timestamp:
Mar 9, 2007, 5:24:25 AM (13 years ago)
Author:
gb
Message:

MAKE-RANDOM-STATE: don't shift.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-numbers.lisp

    r5629 r6011  
    428428  (unless (and (fixnump seed-2) (%i<= 0 seed-2) (%i< seed-2 #x10000))
    429429    (report-bad-arg seed-2 '(unsigned-byte 16)))
    430   (let ((shift (%i- 16 target::fixnum-shift)))
    431430    (gvector :istruct
    432431             'random-state
    433              (%ilsl shift seed-1)
    434              (%ilsl shift seed-2))))
     432             seed-1
     433             seed-2))
    435434
    436435
Note: See TracChangeset for help on using the changeset viewer.