picolisp

commit abf13ccd71dc87de276ceb0db8b2f7385615179d
parent 0cb7f98146ff999dd8521c9a13fa097eecde32f4
Author: Alexander Burger <abu@software-lab.de>
Date:   Mon,  8 Oct 2012 20:49:59 +0200

Bug in 'rcl' / 'rcr, and missing include file
Diffstat:
M
src64/arch/emu.l
 | 
7
++++---

1 file changed, 4 insertions(+), 3 deletions(-)
diff --git a/src64/arch/emu.l b/src64/arch/emu.l
@@ -421,11 +421,11 @@
 (asm rcl (Dst D Src S)
    (genCode (Dst D Src S) (list 'rcl Dst Src) ((op.n Dst D) (op.i Src S))
       "@1 = @1 << @2 | @1 >> (64 - @2);"
-      "i = @1 & 1,  @1 |= Carry,  Carry = i;" ) )
+      "i = @1 & 1,  @1 = @1 & ~1 | Carry,  Carry = i;" ) )
 
 (asm rcr (Dst D Src S)
    (genCode (Dst D Src S) (list 'rcr Dst Src) ((op.n Dst D) (op.i Src S))
-      "i = @1 & 1,  @1 |= Carry,  Carry = i;"
+      "i = @1 & 1,  @1 = @1 & ~1 | Carry,  Carry = i;"
       "@1 = @1 >> @2 | @1 << (64 - @2);" ) )
 
 (asm mul (Src S)
@@ -672,7 +672,7 @@
    (kill             i  i i)
    (raise            -  i)
    (alarm            i  i)
-   (waitpid          i  i p i)
+   (waitpid          i  i v i)
    (free             -  p)
    (stat             i  p v)
    (fcntl            i  i)
@@ -962,6 +962,7 @@
          "#include <sys/time.h>"
          "#include <sys/times.h>"
          "#include <sys/stat.h>"
+         "#include <sys/wait.h>"
          NIL
          "#define MAX8 ((uint8_t)-1)"
          "#define MAX64 ((uint64_t)-1)"