From 9ed1f4cb202fedbe377a2cdfa58f3d9a3beec57e Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 22 Mar 1990 18:44:33 +0000 Subject: [PATCH] Define-indexer did not fill the load delay slot when the index was not an immediate. --- compiler/mips/memory.lisp | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/compiler/mips/memory.lisp b/compiler/mips/memory.lisp index 5fcf2820a..68ebf0f9e 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.3 1990/02/18 02:22:44 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/memory.lisp,v 1.4 1990/03/22 18:44:33 wlott Exp $ ;;; ;;; This file contains the MIPS definitions of some general purpose memory ;;; reference VOPs inherited by basic memory reference operations. @@ -132,8 +132,9 @@ `((inst srl lip index ,shift) (inst add lip lip object))) (inst ,op value lip (- (ash offset word-shift) lowtag)) - ,@(when write-p - `((move result value)))))))) + ,(if write-p + '(move result value) + '(nop))))))) (define-indexer word-index-ref nil lw 0) (define-indexer word-index-set t sw 0) -- GitLab