diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 21:32:05 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-02-17 21:32:05 (GMT) |
| commit | 00cb7c6add3b6ac9655f4a1ae6c904ec11306e6f (patch) | |
| tree | fe337ead094addd20898ae188c89ac27aeb0f6c5 /generic/tclBasic.c | |
| parent | 4413b6647623799f5d461837b869bf0fb12496be (diff) | |
| parent | 820f87726f851ed6938105e54b9d402288cf40f0 (diff) | |
| download | tcl-00cb7c6add3b6ac9655f4a1ae6c904ec11306e6f.zip tcl-00cb7c6add3b6ac9655f4a1ae6c904ec11306e6f.tar.gz tcl-00cb7c6add3b6ac9655f4a1ae6c904ec11306e6f.tar.bz2 | |
Merge 9.0
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 92d8abf..4cceae2 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 */ |