[cmucl-cvs] CMUCL commit: src/compiler/sparc (float.lisp)

[Raymond Toy]

    Date: Thursday, November 11, 2010 @ 07:59:51
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler/sparc

Modified: float.lisp

Vops for adding a real to a complex was totally messed up.  The real
part of the result was the real, and the imaginary part of the result
was garbage.


------------+
 float.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/compiler/sparc/float.lisp
diff -u src/compiler/sparc/float.lisp:1.63 src/compiler/sparc/float.lisp:1.64
--- src/compiler/sparc/float.lisp:1.63	Fri Mar 19 11:19:01 2010
+++ src/compiler/sparc/float.lisp	Thu Nov 11 07:59:51 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/sparc/float.lisp,v 1.63 2010-03-19 15:19:01 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/sparc/float.lisp,v 1.64 2010-11-11 12:59:51 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2084,7 +2084,7 @@
 		(inst ,load zero zero-val (- (* ,slot vm:word-bytes)
 					     vm:other-pointer-type))
 		(inst ,fop rr xr y)
-		(inst ,fop rr xr zero)))))))
+		(inst ,fop ri xi zero)))))))
   (frob single fadds 1)
   (frob double faddd 2))