Skip to content
Snippets Groups Projects
Commit 22d85072 authored by toy's avatar toy
Browse files

Fix indexing error in DEFINE-PARTIAL-SETTER that causes bad array

references to 8- and 16-bit specialized arrays with a constant index.

From Christophe Rhodes on cmucl-imp.
parent 6d374be2
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.52 2003/03/02 18:55:56 toy Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/macros.lisp,v 1.53 2003/07/11 13:29:13 toy Rel $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -477,6 +477,8 @@ ...@@ -477,6 +477,8 @@
(:generator 5 (:generator 5
(inst ,(ecase size (:byte 'sb) (:short 'sh)) (inst ,(ecase size (:byte 'sb) (:short 'sh))
value object value object
(- (* ,offset word-bytes) (* index ,scale) ,lowtag)) (- (+ (* ,offset word-bytes)
(* index ,scale))
,lowtag))
(move result value)))))) (move result value))))))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment