X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fppc%2Finsts.lisp;h=14563c0df0e3ad1680ec401c52ba23e5f2c245d8;hb=cd8fe50554652680dde36396d7862fc6cc83839c;hp=4bbf5f492aff14e92abcf56c357ef571a52e4700;hpb=f906af307193b0fb4dc2831999468c67ac7f4644;p=sbcl.git

diff --git a/src/compiler/ppc/insts.lisp b/src/compiler/ppc/insts.lisp
index 4bbf5f4..14563c0 100644
--- a/src/compiler/ppc/insts.lisp
+++ b/src/compiler/ppc/insts.lisp
@@ -869,7 +869,7 @@
                     (when (typep si 'fixup)
                       (ecase ,fixup
                         ((:ha :l) (note-fixup segment ,fixup si)))
-                      (setq si 0))
+                      (setq si (or (fixup-offset si) 0)))
                     (emit-d-form-inst segment ,op (reg-tn-encoding rt) (reg-tn-encoding ra) si)))))
 
            (define-d-rs-ui-instruction (name op &key (cost 1) other-dependencies)