picolisp

commit d9519da6abbff804ab46ffc810a94a8a66a8575b
parent 032bb2bfef0bd747fa0017c9fee1d2e645006d34
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri, 19 Aug 2011 12:24:39 +0200

Bug in 'rand' (64-bit)
Diffstat:
M
CHANGES
 | 
1
+
M
src64/big.l
 | 
3
++-

2 files changed, 3 insertions(+), 1 deletion(-)
diff --git a/CHANGES b/CHANGES
@@ -1,4 +1,5 @@
 * XXsep11 picoLisp-3.0.8
+   Bug in 'rand' (64-bit)
    EOF bug in pipes to stdin
    'clause' function
    'prop' and '::' cons default cell
diff --git a/src64/big.l b/src64/big.l
@@ -1,4 +1,4 @@
-# 09jul11abu
+# 19aug11abu
 # (c) Software Lab. Alexander Burger
 
 ### Destructive primitives ###
@@ -3036,6 +3036,7 @@
    call evCntXY_FE  # Get cnt2
    inc E  # Seed % (cnt2 + 1 - cnt1) + cnt1
    sub E (S)
+   ld D (Seed)  # Get 'Seed'
    shl C 32  # Get middle 64 bits
    shr A 32
    or A C