From: Christophe R. <cr...@us...> - 2002-06-11 16:13:39
|
Update of /cvsroot/sbcl/sbcl/tests In directory usw-pr-cvs1:/tmp/cvs-serv14050/tests Modified Files: compiler.impure.lisp Log Message: 0.7.4.25: Bugfix for PPC floating point control handling ... document and test. Minor text file tweaking, too Index: compiler.impure.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/tests/compiler.impure.lisp,v retrieving revision 1.9 retrieving revision 1.10 diff -u -d -r1.9 -r1.10 --- compiler.impure.lisp 19 May 2002 22:49:37 -0000 1.9 +++ compiler.impure.lisp 11 Jun 2002 16:13:36 -0000 1.10 @@ -94,6 +94,15 @@ (eval '(foo-2002-05-13)) (compile 'foo-2002-05-13) (foo-2002-05-13) ; (The bug caused UNDEFINED-FUNCTION to be signalled here.) + +;;; floating point pain on the PPC. +;;; +;;; This test case used to fail to compile on most powerpcs prior to +;;; sbcl-0.7.4.2x, as floating point traps were being incorrectly +;;; masked. +(defun floating-point-pain (x) + (declare (single-float x)) + (log x)) ;;;; tests not in the problem domain, but of the consistency of the ;;;; compiler machinery itself |