diff --git a/compiler/mips/insts.lisp b/compiler/mips/insts.lisp index 06897ed52735af714bb54b138df78903f175c27b..e810550687810d97ffa36c686feea233aee95755 100644 --- a/compiler/mips/insts.lisp +++ b/compiler/mips/insts.lisp @@ -7,7 +7,7 @@ ;;; contact Scott Fahlman (Scott.Fahlman@CS.CMU.EDU). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/insts.lisp,v 1.4 1990/02/07 00:25:45 ch Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/insts.lisp,v 1.5 1990/02/09 12:56:53 wlott Exp $ ;;; ;;; Assembler instruction definitions for the MIPS R2000. ;;; @@ -343,7 +343,7 @@ (let* ((2comp (component-info component)) (constants (ir2-component-constants 2comp)) (num-consts (length constants))) - (* 4 num-consts))) ; ### need constant offset here + (ash num-consts word-shift))) ;;; COMPUTE-CODE-FROM-FN