[Sbcl-commits] CVS: sbcl/tests float.impure.lisp,1.6,1.7

[Juho S. <js...@us...>]

Update of /cvsroot/sbcl/sbcl/tests
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3211/tests

Modified Files:
	float.impure.lisp 
Log Message:
0.9.3.62:
	Fix x86-64 MOVE-ARG-DOUBLE-FLOAT VOP for non-rsp fps (code
        inherited from x86 assumed doubles use two words of stack space,
        which is no longer true for x86-64).


Index: float.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/float.impure.lisp,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- float.impure.lisp	14 Jul 2005 16:30:43 -0000	1.6
+++ float.impure.lisp	18 Aug 2005 16:23:08 -0000	1.7
@@ -95,5 +95,24 @@
   (test atanh)
   (test exp))
 
+;;; Broken move-arg-double-float for non-rsp frame pointers on x86-64
+(defun test (y)
+  (declare (optimize speed))
+  (multiple-value-bind (x)
+      (labels ((aux (x)
+                 (declare (double-float x))
+                 (etypecase y
+                   (double-float
+                    nil)
+                   (fixnum
+                    (aux x))
+                   (complex
+                    (format t "y=~s~%" y)))
+                 (values x)))
+        (aux 2.0d0))
+    x))
+
+(assert (= (test 1.0d0) 2.0d0))
+
 ;;; success
 (quit :unix-status 104)