diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-08 13:28:06 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2013-02-08 13:28:06 (GMT) |
| commit | ce11fef50dff5048c2dfa81c6639fbb6a65b51e0 (patch) | |
| tree | e98a894ddce06416177582863563bdfd99a39e79 /generic/tclCmdMZ.c | |
| parent | 7ca3af3ebfc7d24e2f628a1fc5b2058c2d9410c2 (diff) | |
| parent | 98040fe8bcb5786e0e2743bc32dc10b576f86f93 (diff) | |
| download | tcl-ce11fef50dff5048c2dfa81c6639fbb6a65b51e0.zip tcl-ce11fef50dff5048c2dfa81c6639fbb6a65b51e0.tar.gz tcl-ce11fef50dff5048c2dfa81c6639fbb6a65b51e0.tar.bz2 | |
Merge trunk.
Eliminate all usage of internal macros: TclNewIntObj, TclNewBooleanObj, TclSetIntObj, TclSetBooleanObj.
Change various function to macros: Tcl_NewIntObj, Tcl_SetIntObj, Tcl_NewBooleanObj, Tcl_DbNewBooleanObj, Tcl_SetBooleanObj, Tcl_AddErrorInfo, Tcl_AddObjErrorInfo.
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 56777e1..592c3a4 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -4265,7 +4265,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]); } |