Skip to content
Snippets Groups Projects
Commit 0d769677 authored by rtoy's avatar rtoy
Browse files

Fix critical bug in vop for multiplying a complex single-float by a

single-float.
parent 8935d801
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float-sse2.lisp,v 1.10 2009/10/28 22:48:11 rtoy Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/x86/float-sse2.lisp,v 1.11 2010/02/24 01:43:22 rtoy Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -2033,7 +2033,7 @@
(unless (location= y r)
(inst movaps r y)) ; r = yi|yr or 0|0|yi|yr
(inst ,fmul r t0)))))))
(complex-*-float single mulps movlhps 4)
(complex-*-float single mulps unpcklps 4)
(complex-*-float double mulpd unpcklpd 4))
;; Divide a complex by a real
......
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