diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-08 08:40:13 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-08 08:40:13 (GMT) |
| commit | dc3f6d563581732f92fee45770fc0df934a6030a (patch) | |
| tree | 91576610da0facf523870237ac4f2ac93d66d598 /generic/tclStrToD.c | |
| parent | a98efaafa6b86209e60980fa6da27a6679d2ec6b (diff) | |
| parent | 343851002d0cb0f2939aaf96a761357f0b7c972f (diff) | |
| download | tcl-dc3f6d563581732f92fee45770fc0df934a6030a.zip tcl-dc3f6d563581732f92fee45770fc0df934a6030a.tar.gz tcl-dc3f6d563581732f92fee45770fc0df934a6030a.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclStrToD.c')
| -rw-r--r-- | generic/tclStrToD.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclStrToD.c b/generic/tclStrToD.c index a47646b..c428552 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -552,11 +552,11 @@ TclParseNumber( if (bytes == NULL) { if (interp == NULL && endPtrPtr == NULL) { - if (TclHasIntRep(objPtr, &tclDictType)) { + if (TclHasInternalRep(objPtr, &tclDictType)) { /* A dict can never be a (single) number */ return TCL_ERROR; } - if (TclHasIntRep(objPtr, &tclListType)) { + if (TclHasInternalRep(objPtr, &tclListType)) { int length; /* A list can only be a (single) number if its length == 1 */ TclListObjLength(NULL, objPtr, &length); @@ -1232,7 +1232,7 @@ TclParseNumber( */ if (status == TCL_OK && objPtr != NULL) { - TclFreeIntRep(objPtr); + TclFreeInternalRep(objPtr); switch (acceptState) { case SIGNUM: case ZERO_X: @@ -1341,7 +1341,7 @@ TclParseNumber( if (signum) { err = mp_neg(&octalSignificandBig, &octalSignificandBig); } - TclSetBignumIntRep(objPtr, &octalSignificandBig); + TclSetBignumInternalRep(objPtr, &octalSignificandBig); } if (err != MP_OKAY) { return TCL_ERROR; @@ -1377,7 +1377,7 @@ TclParseNumber( if (signum) { err = mp_neg(&significandBig, &significandBig); } - TclSetBignumIntRep(objPtr, &significandBig); + TclSetBignumInternalRep(objPtr, &significandBig); } if (err != MP_OKAY) { return TCL_ERROR; |