Skip to content
Snippets Groups Projects
Commit 8d4ff7e0 authored by toy's avatar toy
Browse files

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.
parent be4df415
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/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 @@ ...@@ -631,12 +631,12 @@
(imag-tn (complex-single-reg-imag-tn value))) (imag-tn (complex-single-reg-imag-tn value)))
(cond ((typep (+ offset 4) '(signed-byte 13)) (cond ((typep (+ offset 4) '(signed-byte 13))
(inst ldf real-tn object offset) (inst ldf real-tn object offset)
(inst ldf real-tn object (+ offset 4))) (inst ldf imag-tn object (+ offset 4)))
(t (t
(inst li temp offset) (inst li temp offset)
(inst ldf real-tn object temp) (inst ldf real-tn object temp)
(inst add temp 4) (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) (define-vop (data-vector-set/simple-array-complex-single-float)
(:note "inline array store") (:note "inline array store")
......
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