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/tclExecute.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/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 73d9d42..b30723f 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -456,7 +456,7 @@ VarHashCreateVar( *(ptrPtr) = (void *) \ (&((objPtr)->internalRep.wideValue)), TCL_OK) : \ TclHasInternalRep((objPtr), &tclDoubleType) \ - ? (((TclIsNaN((objPtr)->internalRep.doubleValue)) \ + ? (((isnan((objPtr)->internalRep.doubleValue)) \ ? (*(tPtr) = TCL_NUMBER_NAN) \ : (*(tPtr) = TCL_NUMBER_DOUBLE)), \ *(ptrPtr) = (void *) \ @@ -8269,7 +8269,7 @@ ExecuteExtendedBinaryMathOp( * Check now for IEEE floating-point error. */ - if (TclIsNaN(dResult)) { + if (isnan(dResult)) { TclExprFloatError(interp, dResult); return GENERAL_ARITHMETIC_ERROR; } @@ -8582,7 +8582,7 @@ TclCompareTwoNumbers( w1 = (Tcl_WideInt)d1; goto wideCompare; case TCL_NUMBER_BIG: - if (TclIsInfinite(d1)) { + if (isinf(d1)) { return (d1 > 0.0) ? MP_GT : MP_LT; } Tcl_TakeBignumFromObj(NULL, value2Ptr, &big2); @@ -8615,7 +8615,7 @@ TclCompareTwoNumbers( return compare; case TCL_NUMBER_DOUBLE: d2 = *((const double *)ptr2); - if (TclIsInfinite(d2)) { + if (isinf(d2)) { compare = (d2 > 0.0) ? MP_LT : MP_GT; mp_clear(&big1); return compare; @@ -9210,11 +9210,11 @@ TclExprFloatError( { const char *s; - if ((errno == EDOM) || TclIsNaN(value)) { + if ((errno == EDOM) || isnan(value)) { s = "domain error: argument not in valid range"; Tcl_SetObjResult(interp, Tcl_NewStringObj(s, -1)); Tcl_SetErrorCode(interp, "ARITH", "DOMAIN", s, NULL); - } else if ((errno == ERANGE) || TclIsInfinite(value)) { + } else if ((errno == ERANGE) || isinf(value)) { if (value == 0.0) { s = "floating-point value too small to represent"; Tcl_SetObjResult(interp, Tcl_NewStringObj(s, -1)); |