From 289b190a60756ac4d1479ac7cdba35a424c6f43e Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Thu, 11 Nov 2010 12:59:51 +0000
Subject: [PATCH] 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.

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

diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp
index 253c76641..562607a14 100644
--- a/compiler/sparc/float.lisp
+++ b/compiler/sparc/float.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/float.lisp,v 1.63 2010/03/19 15:19:01 rtoy Rel $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/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))
 
-- 
GitLab