From 4bf328d083b19cbfe66a8133f89b7d14e748f5d2 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Sat, 29 May 1999 17:46:39 +0000 Subject: [PATCH] Fix the index in the DATA-VECTOR-REF/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT and DATA-VECTOR-SET/SIMPLE-ARRAY-COMPLEX-DOUBLE-FLOAT VOPs; from Ken Olum. --- compiler/mips/array.lisp | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/compiler/mips/array.lisp b/compiler/mips/array.lisp index da783ad86..80bdd0814 100644 --- a/compiler/mips/array.lisp +++ b/compiler/mips/array.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.50 1998/07/24 17:22:34 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/mips/array.lisp,v 1.51 1999/05/29 17:46:39 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -529,6 +529,7 @@ (inst addu lip object index) (inst addu lip index) (inst addu lip index) + (inst addu lip index) (let ((real-tn (complex-double-reg-real-tn value))) (ld-double real-tn lip (- (* vector-data-offset word-bytes) other-pointer-type))) @@ -554,6 +555,7 @@ (inst addu lip object index) (inst addu lip index) (inst addu lip index) + (inst addu lip index) (let ((value-real (complex-double-reg-real-tn value)) (result-real (complex-double-reg-real-tn result))) (str-double value-real lip (- (* vector-data-offset word-bytes) -- GitLab