Changeset 7238


Ignore:
Timestamp:
Sep 17, 2007, 12:21:12 PM (13 years ago)
Author:
gb
Message:
 
File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/ChangeLog

    r7233 r7238  
     12007-09-17 06:10  gb
     2
     3        * level-0/l0-numbers.lisp: Simply clearing the top bit of the
     4        intermediate result from %NEXT-RANDOM-PAIR had the effect of using
     5        doing (mod result (expt 2 31)), not (mod result (1- (expt 2 31))).
     6        Do a real MOD to obtain the next item in the series and update the
     7        state with that value.  (This means that the high bit of the high
     8        half of the result is always clear; or in the sign bit from the low
     9        half.)
     10
    1112007-09-16 18:10  gb
    212
Note: See TracChangeset for help on using the changeset viewer.