[Sbcl-commits] CVS: sbcl/tests float.impure.lisp,1.2,1.3

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1:/tmp/cvs-serv3767/tests

Modified Files:
	float.impure.lisp 
Log Message:
0.8.2.30:
	Fix PPC (complex double-float) bug as reported on sbcl-devel
	by Clemens Heitzinger 2003-08-12
	... the right way, not as per CSR patch sbcl-devel, but as per
		CSR words sbcl-devel;
	... also fix error reporting in CERROR format DEFTRANSFORM
		(oh, the irony).


Index: float.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/float.impure.lisp,v
retrieving revision 1.2
retrieving revision 1.3
diff -u -d -r1.2 -r1.3
--- float.impure.lisp	13 Jan 2002 01:36:20 -0000	1.2
+++ float.impure.lisp	15 Aug 2003 18:07:08 -0000	1.3
@@ -54,5 +54,13 @@
 		  #(2.0d0 2.0d0)
 		  #(3.0d0 3.0d0))))
 
+(defun complex-double-float-ppc (x y)
+  (declare (type (complex double-float) x y))
+  (declare (optimize speed))
+  (+ x y))
+(compile 'complex-double-float-ppc)
+(assert (= (complex-double-float-ppc #c(0.0d0 1.0d0) #c(2.0d0 3.0d0))
+           #c(2.0d0 4.0d0)))
+
 ;;; success
 (quit :unix-status 104)