common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Disable floating-point exception in a test

Browse source
This commit is contained in:
Douglas Katzman 2020-09-10 13:58:59 -04:00
parent 501633af38
commit deea157efe
1 changed files with 7 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
tests/float.impure.lisp
View file

@ -356,7 +356,13 @@ fractional bits."
(dolist (op '(sin cos tan))
(dolist (val `(,(coerce most-positive-fixnum 'double-float)
,@(loop for v = most-positive-double-float
then (expt v 4/5)
;; EXPT calls %POW which directly calls the libm pow() function.
;; Some libm's might internally cause an *expected* overflow on
;; certain inputs. So instead of computing an answer for
;; (EXPT 1.7976931348623157d308 4/5) it would trap.
;; I'll bet that's why we disabled the test on openbsd,
;; but I don't care to find out.
then (sb-int:with-float-traps-masked (:overflow) (expt v 4/5))
while (> v (expt 2 50))
collect v)
;; The following values cover all eight combinations