diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 17:33:30 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 17:33:30 (GMT) |
commit | 820f87726f851ed6938105e54b9d402288cf40f0 (patch) | |
tree | d1c10e2c87b6aacbc541e86c58396d923a41e5ae /generic/tclBasic.c | |
parent | bf552f0a4d5c314940d025c46551b4e5062c59ac (diff) | |
parent | e246b44499e406683adac8035e53d08b4dc0192a (diff) | |
download | tcl-820f87726f851ed6938105e54b9d402288cf40f0.zip tcl-820f87726f851ed6938105e54b9d402288cf40f0.tar.gz tcl-820f87726f851ed6938105e54b9d402288cf40f0.tar.bz2 |
Merge 8.7
Diffstat (limited to 'generic/tclBasic.c')
-rw-r--r-- | generic/tclBasic.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclBasic.c b/generic/tclBasic.c index b277c5c..a21f633 100644 --- a/generic/tclBasic.c +++ b/generic/tclBasic.c @@ -7084,7 +7084,7 @@ ExprSqrtFunc( if (code != TCL_OK) { return TCL_ERROR; } - if ((d >= 0.0) && TclIsInfinite(d) + if ((d >= 0.0) && isinf(d) && (Tcl_GetBignumFromObj(NULL, objv[1], &big) == TCL_OK)) { mp_int root; mp_err err; @@ -7149,12 +7149,12 @@ CheckDoubleResult( double dResult) { #ifndef ACCEPT_NAN - if (TclIsNaN(dResult)) { + if (isnan(dResult)) { TclExprFloatError(interp, dResult); return TCL_ERROR; } #endif - if ((errno == ERANGE) && ((dResult == 0.0) || TclIsInfinite(dResult))) { + if ((errno == ERANGE) && ((dResult == 0.0) || isinf(dResult))) { /* * When ERANGE signals under/overflow, just accept 0.0 or +/-Inf */ |