Changeset 7259


Ignore:
Timestamp:
Sep 19, 2007, 9:49:29 AM (12 years ago)
Author:
gb
Message:

INITIALIZE-RANDOM-STATE: 32/64 changes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0709/ccl/level-1/l1-numbers.lisp

    r6027 r7259  
    428428  (unless (and (fixnump seed-2) (%i<= 0 seed-2) (%i< seed-2 #x10000))
    429429    (report-bad-arg seed-2 '(unsigned-byte 16)))
    430     (gvector :istruct
    431              'random-state
    432              seed-1
    433              seed-2))
     430  #+64-bit-target
     431  (gvector :istruct
     432           'random-state
     433           (fast-mod (logior (ash seed-1 16) seed-2) (1- (ash 1 31)))
     434           0)
     435  #+32-bit-target
     436  (gvector :istruct
     437           'random-state
     438           seed-1
     439           seed-2))
    434440
    435441
Note: See TracChangeset for help on using the changeset viewer.