picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
MCHANGES | 1+
Msrc64/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