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

compiler/x86/float-sse2.lisp

+2 −2
Changes for compiler/x86/float-sse2.lisp: 2 added lines, 2 removed lines.
Original line number Diff line number Diff line
@@ -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