picolisp

commit c153667980a916a380703f1182c8224c6cdcf50c
parent e8ed84b3e1baa20db2bc41465623416227ecd437
Author: Alexander Burger <abu@software-lab.de>
Date:   Sat,  3 Nov 2012 12:57:02 +0100

emu64 continued
Diffstat:
M
src64/arch/emu.l
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src64/arch/emu.l b/src64/arch/emu.l
@@ -356,7 +356,7 @@
          "   Carry = (Result = @1 += tmp.n) < tmp.n;" )
       (genCode (Src S) (list 'addc 'D Src) ((op.n Src S))
          "if ((tmp.n = @1 + Carry) == 0)"
-         "   Carry = ++C.n == 0;"
+         "   Carry = (C.n += Carry) == 0;"
          "else if ((A.n += tmp.n) < tmp.n)"
          "   Carry = ++C.n == 0;"
          "else"