Changeset 14451

Timestamp:

Nov 23, 2010, 3:11:22 AM (14 years ago)

Author:

Gary Byers

Message:

In the form that initializes DOUBLE-FLOAT-NAN, declare + to be
notinline, so that the arithmetic will happen with the FP invalid
exception disabled. (Doing the arithmetic at compile time should
fail, but we have had trouble detecting arithmetic exceptions
on DarwinPPC due to Mach lossage.)

File:

• trunk/source/lib/numbers.lisp (modified) (1 diff)

trunk/source/lib/numbers.lisp

@@ -50 +50 @@
 (defconstant double-float-nan
   #.(let ((invalid (get-fpu-mode :invalid)))
+      (declare (notinline +))
       (unwind-protect
            (progn