diff --git a/compiler/mips/memory.lisp b/compiler/mips/memory.lisp index b0ccacf6ee0fe07e9625ea588246d9f483ac601e..49b306cacb395f63936ce161ef212ad7484f59e6 100644 --- a/compiler/mips/memory.lisp +++ b/compiler/mips/memory.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/memory.lisp,v 1.5 1990/03/29 16:34:03 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/memory.lisp,v 1.6 1990/03/29 21:51:56 wlott Exp $ ;;; ;;; This file contains the MIPS definitions of some general purpose memory ;;; reference VOPs inherited by basic memory reference operations. @@ -113,7 +113,7 @@ '((value :scs (any-reg descriptor-reg) :target result)))) (:temporary (:scs (interior-reg) :type interior) lip) ,@(unless (zerop shift) - `((:temporary (:scs (non-descriptor-reg) :type random) offset))) + `((:temporary (:scs (non-descriptor-reg) :type random) temp))) (:results (,(if write-p 'result 'value) :scs (any-reg descriptor-reg))) (:variant-vars offset lowtag) @@ -131,8 +131,8 @@ (t ,@(if (zerop shift) `((inst add lip object index)) - `((inst srl offset index ,shift) - (inst add lip offset object))) + `((inst srl temp index ,shift) + (inst add lip temp object))) (inst ,op value lip (- (ash offset word-shift) lowtag)) ,(if write-p '(move result value)