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 c9c1f95d72c2ed7d9e45e83d659b075533a841b4
parent a1a41c9a04a3e679690f26f09b3a8670fda9f6fc
Author: Alexander Burger <abu@software-lab.de>
Date:   Fri,  2 Nov 2012 13:32:18 +0100

emu64 continued
Diffstat:
Msrc64/arch/emu.l | 4++--
1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src64/arch/emu.l b/src64/arch/emu.l @@ -808,7 +808,7 @@ (localtime p "time_t") (printf - p) (fprintf - "FILE" p) - (snprintf - p i p) + (snprintf - p i p p) (strerror p i) (dlerror p) (exit - i) @@ -927,7 +927,7 @@ (- (_genCC "@1(@2);@3")) (p (_genCC "A.p = (uint8_t*)@1(@2);@3")) (n (_genCC "A.n = (uint64_t)@1(@2);@3")) - (i (_genCC "A.l = (uint32_t)@1(@2);@3")) + (i (_genCC "A.n = (uint64_t)(uint32_t)@1(@2);@3")) (T (quit "Unknown C function" Adr)) ) ) (addCode (cons