diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-01 12:35:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2017-11-01 12:35:40 (GMT) |
| commit | 9e2ed8b729812f2ab4c70025a0e71f255bec1a78 (patch) | |
| tree | e253e38402144ddbcfac37c63ebd46080350fec4 /generic/tclCmdMZ.c | |
| parent | adc216698f7b3e45354f185b714df1754c429aa9 (diff) | |
| download | tcl-9e2ed8b729812f2ab4c70025a0e71f255bec1a78.zip tcl-9e2ed8b729812f2ab4c70025a0e71f255bec1a78.tar.gz tcl-9e2ed8b729812f2ab4c70025a0e71f255bec1a78.tar.bz2 | |
Finally, get rid of tclWideIntType completely
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index c984bbe..8ab687f 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -1596,7 +1596,6 @@ StringIsCmd( /* TODO */ if ((objPtr->typePtr == &tclDoubleType) || (objPtr->typePtr == &tclIntType) || - (objPtr->typePtr == &tclWideIntType) || (objPtr->typePtr == &tclBignumType)) { break; } @@ -1631,7 +1630,6 @@ StringIsCmd( goto failedIntParse; case STR_IS_ENTIER: if ((objPtr->typePtr == &tclIntType) || - (objPtr->typePtr == &tclWideIntType) || (objPtr->typePtr == &tclBignumType)) { break; } @@ -4289,7 +4287,7 @@ TclNRTryObjCmd( } info[0] = objv[i]; /* type */ - TclNewLongObj(info[1], code); /* returnCode */ + TclNewWideObj(info[1], code); /* returnCode */ if (info[2] == NULL) { /* errorCodePrefix */ TclNewObj(info[2]); } |