X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fhppa%2Fmacros.lisp;h=95f7563ec0f9e9b5eac18abad44b0ed6ea00df91;hb=038ecde3e0386e347550709a199c7f856052c0cd;hp=d3e807046b2ca6bb4660a71e898b557294c610f7;hpb=52cfe54802db8736f1f4e2b67764c43bba9b78b3;p=sbcl.git

diff --git a/src/compiler/hppa/macros.lisp b/src/compiler/hppa/macros.lisp
index d3e8070..95f7563 100644
--- a/src/compiler/hppa/macros.lisp
+++ b/src/compiler/hppa/macros.lisp
@@ -52,7 +52,7 @@
     (:little-endian
      `(inst ldb ,offset ,source ,target))
     (:big-endian
-     `(inst ldb (+ ,offset 3) ,source ,target))))
+     `(inst ldb (+ ,offset (1- n-word-bytes)) ,source ,target))))
 
 ;;; Macros to handle the fact that we cannot use the machine native call and
 ;;; return instructions.