diff --git a/compiler/mips/macros.lisp b/compiler/mips/macros.lisp index 787d4bbe31ba2e57b21fde90ebf91e5f8064d65a..f24875a14e3a17bb21b86a715b9b91fabb9c72b0 100644 --- a/compiler/mips/macros.lisp +++ b/compiler/mips/macros.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.52 2003/03/02 18:55:56 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.53 2003/07/11 13:29:13 toy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -477,6 +477,8 @@ (:generator 5 (inst ,(ecase size (:byte 'sb) (:short 'sh)) value object - (- (* ,offset word-bytes) (* index ,scale) ,lowtag)) + (- (+ (* ,offset word-bytes) + (* index ,scale)) + ,lowtag)) (move result value))))))