[Sbcl-commits] CVS: sbcl/tests debug.impure.lisp,1.11,1.12 float.pure.lisp,1.14,1.15

[Alexey D. <ade...@us...>]

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

Modified Files:
	debug.impure.lisp float.pure.lisp 
Log Message:
0.8.20.8:
        * Disable backtrace checking on (and x86 linux).
        * Describe bugs MISC.555 and MISC.563.
        * Define out-of-line %ATAN2 on x86 (fix MISC.564).


Index: debug.impure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/debug.impure.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- debug.impure.lisp	1 Mar 2005 10:21:34 -0000	1.11
+++ debug.impure.lisp	7 Mar 2005 06:53:18 -0000	1.12
@@ -181,7 +181,7 @@
                                   '((flet not-optimized))
                                   (list '(flet test) #'not-optimized)))))
 
-#-(or alpha) ; bug 61
+#-(or alpha (and x86 linux)) ; bug 61
 (progn
   (defun throw-test ()
     (throw 'no-such-tag t))
@@ -208,6 +208,7 @@
 (defun bt.5 (&optional (opt (oops)))
   (list opt))
 
+#-(and x86 linux)
 (macrolet ((with-details (bool &body body)
              `(let ((sb-debug:*show-entry-point-details* ,bool))
                 ,@body)))

Index: float.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/float.pure.lisp,v
retrieving revision 1.14
retrieving revision 1.15
diff -u -d -r1.14 -r1.15
--- float.pure.lisp	13 Feb 2005 14:27:11 -0000	1.14
+++ float.pure.lisp	7 Mar 2005 06:53:18 -0000	1.15
@@ -97,3 +97,15 @@
 			 floating-point-overflow))
   (assert (raises-error? (scale-float 1.0d0 (1+ most-positive-fixnum))
 			 floating-point-overflow)))
+
+;;; MISC.564: no out-of-line %ATAN2 for constant folding
+(assert (typep
+  (funcall
+   (compile
+    nil
+    '(lambda (p1)
+      (declare (optimize (speed 3) (safety 2) (debug 3) (space 0))
+       (type complex p1))
+      (phase (the (eql #c(1.0d0 2.0d0)) p1))))
+   #c(1.0d0 2.0d0))
+    'double-float))