diff options
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 49a299c..6fac1c0 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -4642,7 +4642,13 @@ MODULE_SCOPE Tcl_PackageInitProc Procbodytest_SafeInit; # ifdef NO_ISNAN # define TclIsNaN(d) ((d) != (d)) # else -# define TclIsNaN(d) (isnan(d)) +/* + * This is called a lot for double-using code and isnan() is a noticable + * slowdown, so we stay with the comparison operation here. It should only + * make a difference for signalling NaN and those should not happen anyway. + */ +# define TclIsNaN(d) ((d) != (d)) +/*# define TclIsNaN(d) (isnan(d))*/ # endif #endif |