diff options
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index ab46d52..dac82b8 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1641,9 +1641,9 @@ StringIsCmd( chcomp = Tcl_UniCharIsDigit; break; case STR_IS_DOUBLE: { - if (Tcl_FetchIntRep(objPtr, &tclDoubleType) || - Tcl_FetchIntRep(objPtr, &tclIntType) || - Tcl_FetchIntRep(objPtr, &tclBignumType)) { + if ((objPtr->typePtr == &tclDoubleType) || + (objPtr->typePtr == &tclIntType) || + (objPtr->typePtr == &tclBignumType)) { break; } string1 = TclGetStringFromObj(objPtr, &length1); @@ -1672,8 +1672,8 @@ StringIsCmd( break; case STR_IS_INT: case STR_IS_ENTIER: - if (Tcl_FetchIntRep(objPtr, &tclIntType) || - Tcl_FetchIntRep(objPtr, &tclBignumType)) { + if ((objPtr->typePtr == &tclIntType) || + (objPtr->typePtr == &tclBignumType)) { break; } string1 = TclGetStringFromObj(objPtr, &length1); @@ -1952,7 +1952,7 @@ StringMapCmd( */ if (!TclHasStringRep(objv[objc-2]) - && Tcl_FetchIntRep(objv[objc-2], &tclDictType)){ + && (objv[objc-2]->typePtr == &tclDictType)){ int i, done; Tcl_DictSearch search; |