summaryrefslogtreecommitdiffstats
path: root/generic/tclStrToD.c
diff options
context:
space:
mode:
authorjan.nijtmans <nijtmans@users.sourceforge.net>2022-02-17 21:32:05 (GMT)
committerjan.nijtmans <nijtmans@users.sourceforge.net>2022-02-17 21:32:05 (GMT)
commit00cb7c6add3b6ac9655f4a1ae6c904ec11306e6f (patch)
treefe337ead094addd20898ae188c89ac27aeb0f6c5 /generic/tclStrToD.c
parent4413b6647623799f5d461837b869bf0fb12496be (diff)
parent820f87726f851ed6938105e54b9d402288cf40f0 (diff)
downloadtcl-00cb7c6add3b6ac9655f4a1ae6c904ec11306e6f.zip
tcl-00cb7c6add3b6ac9655f4a1ae6c904ec11306e6f.tar.gz
tcl-00cb7c6add3b6ac9655f4a1ae6c904ec11306e6f.tar.bz2
Merge 9.0
Diffstat (limited to 'generic/tclStrToD.c')
-rw-r--r--generic/tclStrToD.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c
index e672ea8..6383659 100644
--- a/generic/tclStrToD.c
+++ b/generic/tclStrToD.c
@@ -4764,7 +4764,7 @@ Tcl_InitBignumFromDouble(
* Infinite values can't convert to bignum.
*/
- if (TclIsInfinite(d)) {
+ if (isinf(d)) {
if (interp != NULL) {
const char *s = "integer value too large to represent";