Changeset 14451 for trunk/source

Timestamp:

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

Author:

gb

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