diff options
| author | dgp <dgp@users.sourceforge.net> | 2016-12-23 15:21:22 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2016-12-23 15:21:22 (GMT) |
| commit | 986cc9a1d8abe7ab0abc0971982fcb5f367cba18 (patch) | |
| tree | 030ee9cf12979f70eb1ad6b6b4a9f837d16df58e /generic/tclCmdMZ.c | |
| parent | f69d34b905c9c0311a098b4a02ce45590e0c130f (diff) | |
| parent | 753a557ea2976254eafdc0a1711fcf3ec34d0b2d (diff) | |
| download | tcl-986cc9a1d8abe7ab0abc0971982fcb5f367cba18.zip tcl-986cc9a1d8abe7ab0abc0971982fcb5f367cba18.tar.gz tcl-986cc9a1d8abe7ab0abc0971982fcb5f367cba18.tar.bz2 | |
merge trunk
Diffstat (limited to 'generic/tclCmdMZ.c')
| -rw-r--r-- | generic/tclCmdMZ.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 41b7aa8..688697a 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -4158,7 +4158,7 @@ TclNRTryObjCmd( } info[0] = objv[i]; /* type */ - TclNewIntObj(info[1], code); /* returnCode */ + TclNewLongObj(info[1], code); /* returnCode */ if (info[2] == NULL) { /* errorCodePrefix */ TclNewObj(info[2]); } |