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