picolisp

commit 3b95bd3034a9df9f508854f9a407030454eb287b
parent 49676f2200740e6b720fa9c154d67b8a4ed5ea6b
Author: Alexander Burger <abu@software-lab.de>
Date:   Wed, 20 Apr 2011 19:53:36 +0200

ppc64 continued
Diffstat:
M
src64/arch/ppc64.l
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/src64/arch/ppc64.l b/src64/arch/ppc64.l
@@ -264,9 +264,9 @@
                         (opxReg Op Reg R (car Mem)) ) ) ) ) ) )
       ((=T (car M))  # Indirect
          (if (or *FPic (low? (car Mem)))  # -fpic or code label
-            (let R (if (lt0 Reg) (tmpReg) Reg)
+            (let R (tmpReg)
                (dataGot R (car Mem))
-               (opReg 0 Reg 0 R) )
+               (opReg Op Reg 0 R) )
             (opReg Op Reg
                (pack
                   (and (cdr M) (pack (cdr Mem) "+"))