picolisp

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

emu64 continued
Diffstat:
M
src64/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