From 6ad3412bc13d3ae7a5f7f68260a90ae1bd536e03 Mon Sep 17 00:00:00 2001 From: dos-reis Date: Thu, 16 Apr 2009 14:14:09 +0000 Subject: Fix SF/2763053 * interp/sys-os.boot ($NaNvalue): Remove. (quietDoubleNaN): Import. * include/cfuns.h (quiet_double_NaN): Rename from NANQ. * lib/cfuns-c.c (quiet_double_NaN): Likewise. * algebra/draw.spad.pamphlet: Replace $NaNvalue with quietDoubleNaN. * algebra/plot.spad.pamphlet: Likewise. * algebra/plot3d.spad.pamphlet: Likewise. --- src/interp/sys-os.boot | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/interp/sys-os.boot') diff --git a/src/interp/sys-os.boot b/src/interp/sys-os.boot index c4f45e66..aae3dad3 100644 --- a/src/interp/sys-os.boot +++ b/src/interp/sys-os.boot @@ -198,16 +198,16 @@ runProgram(prog,args) == ++ numeric limits + +import quiet__double__NaN: () -> double for quietDoubleNaN + )if %hasFeature KEYWORD::GCL import plus__infinity: () -> double for plusInfinity import minus__infinity: () -> double for minusInfinity -import NANQ: () -> double for NaNQ - $plusInfinity := plusInfinity() $minusInfinity := minusInfinity() -$NaNvalue := NaNQ() )elseif %hasFeature KEYWORD::SBCL $plusInfinity == SB_-EXT::DOUBLE_-FLOAT_-POSITIVE_-INFINITY -- cgit v1.2.3