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