diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-18 11:57:36 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-10-18 11:57:36 (GMT) |
| commit | d29c3178051f09e66db3204230d26fa28364fdd4 (patch) | |
| tree | a5f6ebf5a533405ecd7064eb0f69ccdfd61b84eb /generic/tclStrToD.c | |
| parent | afa0f7421bb00ea52020c1118c980b7045a38ddc (diff) | |
| parent | 43d72b8d8e0d029c39b3c9abbb84f196aed496f5 (diff) | |
| download | tcl-d29c3178051f09e66db3204230d26fa28364fdd4.zip tcl-d29c3178051f09e66db3204230d26fa28364fdd4.tar.gz tcl-d29c3178051f09e66db3204230d26fa28364fdd4.tar.bz2 | |
Merge 8.7. Remove -stoponerror option
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 b213bed..3cee154 100644 --- a/generic/tclStrToD.c +++ b/generic/tclStrToD.c @@ -553,11 +553,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); @@ -1295,7 +1295,7 @@ TclParseNumber( */ if (status == TCL_OK && objPtr != NULL) { - TclFreeIntRep(objPtr); + TclFreeInternalRep(objPtr); switch (acceptState) { case SIGNUM: case BAD_OCTAL: @@ -1405,7 +1405,7 @@ TclParseNumber( if (signum) { err = mp_neg(&octalSignificandBig, &octalSignificandBig); } - TclSetBignumIntRep(objPtr, &octalSignificandBig); + TclSetBignumInternalRep(objPtr, &octalSignificandBig); } if (err != MP_OKAY) { return TCL_ERROR; @@ -1441,7 +1441,7 @@ TclParseNumber( if (signum) { err = mp_neg(&significandBig, &significandBig); } - TclSetBignumIntRep(objPtr, &significandBig); + TclSetBignumInternalRep(objPtr, &significandBig); } if (err != MP_OKAY) { return TCL_ERROR; |