Skip to content
Snippets Groups Projects
Commit 9ed1f4cb authored by wlott's avatar wlott
Browse files

Define-indexer did not fill the load delay slot when the index was not an

immediate.
parent 26bded7d
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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 ;;; This file contains the MIPS definitions of some general purpose memory
;;; reference VOPs inherited by basic memory reference operations. ;;; reference VOPs inherited by basic memory reference operations.
...@@ -132,8 +132,9 @@ ...@@ -132,8 +132,9 @@
`((inst srl lip index ,shift) `((inst srl lip index ,shift)
(inst add lip lip object))) (inst add lip lip object)))
(inst ,op value lip (- (ash offset word-shift) lowtag)) (inst ,op value lip (- (ash offset word-shift) lowtag))
,@(when write-p ,(if write-p
`((move result value)))))))) '(move result value)
'(nop)))))))
(define-indexer word-index-ref nil lw 0) (define-indexer word-index-ref nil lw 0)
(define-indexer word-index-set t sw 0) (define-indexer word-index-set t sw 0)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment