Tcl Source Code: Artifact [d9ba350ca9]

Artifact d9ba350ca9a6e1625ca6a0f542183f765cdcb735:

Attachment "tclInt.patch" to ticket [1783544fff] added by kot 2007-08-29 00:33:14.

--- tcl8.5a6/generic/tclInt.h	Tue Apr 24 15:07:03 2007
+++ generic/tclInt.h	Tue Aug 28 13:22:28 2007
@@ -3367,6 +3367,6 @@
 #define TclIsNaN(d)		(_isnan((d)))
 #else
-#define TclIsInfinite(d)	( (d) > DBL_MAX || (d) < -DBL_MAX )
-#define TclIsNaN(d)		((d) != (d))
+#define TclIsInfinite		isinf
+#define TclIsNaN		isnan
 #endif