picolisp

commit 9ea3bd928b8517f7aae21f36e099148ddc08fe93
parent 55dcb4c023c1ef38b6364cab9f1cfdfd7a177338
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 27 Apr 2011 10:47:35 +0200

Carry flag in add/sub on D register
Diffstat:
M
src64/arch/ppc64.l
 | 
8
++++----

1 file changed, 4 insertions(+), 4 deletions(-)
diff --git a/src64/arch/ppc64.l b/src64/arch/ppc64.l
@@ -500,7 +500,7 @@
       (if (and (=0 S) (>= 32767 (format Src) -32768))
          (prinst "addic" 3 3 Src)
          (prinst "addc" 3 3 (srcReg Src S)) )
-      (prinst "addze" 14 14) )
+      (prinst "addze." 14 14) )
    (prinst "subfze" 31 21) )  # Set carry
 
 (asmNoCC add (Dst D Src S)
@@ -524,7 +524,7 @@
          (prinst "adde." (caddr A) (caddr A) (car A))
          (regDst (cdr A)) )
       (prinst "adde" 3 3 (srcReg Src S))
-      (prinst "adde" 14 14 20) )
+      (prinst "addze." 14 14) )
    (prinst "subfze" 31 21) )  # Set carry
 
 (asmNoCC addc (Dst D Src S)
@@ -548,7 +548,7 @@
       (if (and (=0 S) (>= 32767 (format Src) -32768))
          (prinst "subic" 3 3 Src)
          (prinst "subc" 3 3 (srcReg Src S)) )
-      (prinst "subfze" 14 14) )
+      (prinst "subfze." 14 14) )
    (prinst "subfme" 31 21) )  # Set inverted carry
 
 (asmNoCC sub (Dst D Src S)
@@ -573,7 +573,7 @@
          (prinst "subfe." (caddr A) (car A) (caddr A))
          (regDst (cdr A)) )
       (prinst "sube" 3 3 (srcReg Src S))
-      (prinst "sube" 14 14 20) )
+      (prinst "subfze." 14 14) )
    (prinst "subfme" 31 21) )  # Set inverted carry
 
 (asmNoCC subc (Dst D Src S)