Changeset 8535


Ignore:
Timestamp:
Feb 21, 2008, 9:32:02 AM (12 years ago)
Author:
gb
Message:

MAKE-RANDOM-STATE was broken last fall, probably broken on working-0711
branch as well.

File:
1 edited

Legend:

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

    r7651 r8535  
    453453      (progn
    454454        (setq state (require-type (or state *random-state*) 'random-state))
    455         (setq seed-1 (random.seed-1 state) seed-2 (random.seed-2 state))))
     455        #+32-bit-target
     456        (setq seed-1 (random.seed-1 state) seed-2 (random.seed-2 state))
     457        #+64-bit-target
     458        (let* ((seed (random.seed-1 state)))
     459          (declare (type (unsigned-byte 32) seed))
     460          (setq seed-1 (ldb (byte 16 16) seed)
     461                seed-2 (ldb (byte 16 0) seed)))))
    456462    (%cons-random-state seed-1 seed-2)))
    457463
Note: See TracChangeset for help on using the changeset viewer.