From 8d4ff7e0f5ed481d718f56ac259a82262396b56e Mon Sep 17 00:00:00 2001
From: toy <toy>
Date: Wed, 5 Nov 2003 15:14:53 +0000
Subject: [PATCH] Fix typo in
 data-vector-ref-c/simple-array-complex-single-float.  The imaginary part
 wasn't getting returned, and the real part was actually the imaginary part.

---
 compiler/sparc/array.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/compiler/sparc/array.lisp b/compiler/sparc/array.lisp
index f0cd6c189..ecc102e2d 100644
--- a/compiler/sparc/array.lisp
+++ b/compiler/sparc/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/sparc/array.lisp,v 1.31 2003/10/27 18:30:27 toy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/array.lisp,v 1.32 2003/11/05 15:14:53 toy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -631,12 +631,12 @@
 	  (imag-tn (complex-single-reg-imag-tn value)))
       (cond ((typep (+ offset 4) '(signed-byte 13))
 	     (inst ldf real-tn object offset)
-	     (inst ldf real-tn object (+ offset 4)))
+	     (inst ldf imag-tn object (+ offset 4)))
 	    (t
 	     (inst li temp offset)
 	     (inst ldf real-tn object temp)
 	     (inst add temp 4)
-	     (inst ldf real-tn object temp))))))
+	     (inst ldf imag-tn object temp))))))
 
 (define-vop (data-vector-set/simple-array-complex-single-float)
   (:note "inline array store")
-- 
GitLab