picolisp

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picolisp.git/
Log | Files | Refs | README | LICENSE

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:
Msrc64/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'