summaryrefslogtreecommitdiffstats
path: root/generic/tclInt.h
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r--generic/tclInt.h14
1 files changed, 9 insertions, 5 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 23c8adb..8a71b59 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -13,7 +13,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclInt.h,v 1.362 2008/01/23 21:32:36 dgp Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.362.2.1 2008/03/31 17:21:14 dgp Exp $
*/
#ifndef _TCLINT
@@ -3768,11 +3768,15 @@ MODULE_SCOPE void TclBNInitBignumFromWideUInt(mp_int *bignum,
*/
#ifdef _MSC_VER
-#define TclIsInfinite(d) ( ! (_finite((d))) )
-#define TclIsNaN(d) (_isnan((d)))
+# define TclIsInfinite(d) ( ! (_finite((d))) )
+# define TclIsNaN(d) (_isnan((d)))
#else
-#define TclIsInfinite(d) ( (d) > DBL_MAX || (d) < -DBL_MAX )
-#define TclIsNaN(d) ((d) != (d))
+# define TclIsInfinite(d) ( (d) > DBL_MAX || (d) < -DBL_MAX )
+# ifdef NO_ISNAN
+# define TclIsNaN(d) ((d) != (d))
+# else
+# define TclIsNaN(d) (isnan(d))
+# endif
#endif
/*