picolisp

commit 78e5f03edac6ec7b943f8790ae5d0b05f2e44247
parent 9dfc8c0c5c86ae91fac504ff3c037ba6551f2abb
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 27 Apr 2011 10:13:35 +0200

Bug in 'div' instruction
Diffstat:
M
src64/arch/ppc64.l
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src64/arch/ppc64.l b/src64/arch/ppc64.l
@@ -1391,7 +1391,7 @@
             (prinst "cmpld" @u1 @v)            # u1 >= v?
             (prinst "bge-" "divOvfl")          # Yes: Overflow
             (prinst "li" @s 0)                 # Init 's'
-            (prinst "cmpldi" @v 0)             # Normalize
+            (prinst "cmpdi" @v 0)             # Normalize
             (prinst "blt" "div2")
             (prinl "div1:")
             (prinst "addi" @s @s 1)            # Increment 's'