Update of /cvsroot/sbcl/sbcl/tests
In directory fdv4jf1.ch3.sourceforge.com:/tmp/cvs-serv974/tests
Modified Files:
float.pure.lisp
Log Message:
1.0.28.46: implement os_restore_fp_control() for OpenBSD x86
Fixes problems with the floating point modes being forgotten. Also
fixes one of the float tests by clearing the exception flags first,
insuring that the right exception is raised.
Patch by Josh Elsasser.
Index: float.pure.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/tests/float.pure.lisp,v
retrieving revision 1.42
retrieving revision 1.43
diff -u -d -r1.42 -r1.43
--- float.pure.lisp 22 Mar 2009 20:07:51 -0000 1.42
+++ float.pure.lisp 13 May 2009 18:13:48 -0000 1.43
@@ -93,7 +93,7 @@
(assert (= 0.0d0 (scale-float 1.0d0 (1- most-negative-fixnum))))
(with-test (:name (:scale-float-overflow :bug-372)
- :fails-on '(or :ppc :darwin (and :x86 :openbsd))) ;; bug 372
+ :fails-on '(or :ppc :darwin)) ;; bug 372
(progn
(assert (raises-error? (scale-float 1.0 most-positive-fixnum)
floating-point-overflow))
@@ -125,12 +125,13 @@
(funcall (compile nil '(lambda () (tan (tan (round 0))))))
(with-test (:name (:addition-overflow :bug-372)
- :fails-on '(or :ppc :darwin (and (or :x86 :x86-64)
- (or :netbsd :openbsd))))
+ :fails-on '(or :ppc :darwin (and :x86 :netbsd)))
(assert (typep (nth-value
1
(ignore-errors
(sb-sys:without-interrupts
+ (sb-int:set-floating-point-modes :current-exceptions nil
+ :accrued-exceptions nil)
(loop repeat 2 summing most-positive-double-float)
(sleep 2))))
'floating-point-overflow)))
|