diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-07-16 06:58:45 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-07-16 06:58:45 (GMT) |
commit | 9b4bad2783cd4e6f9fefc8af4ade78391fb0d34e (patch) | |
tree | 87f601d73c5ef48e6695f0d2a570dd27b6f5ec18 /generic/tclCmdMZ.c | |
parent | 6e3371ad0a917ded7faecca0b8111a82faf562c7 (diff) | |
parent | f58326fab5907a37c419f42ee5a343063b0ba944 (diff) | |
download | tcl-9b4bad2783cd4e6f9fefc8af4ade78391fb0d34e.zip tcl-9b4bad2783cd4e6f9fefc8af4ade78391fb0d34e.tar.gz tcl-9b4bad2783cd4e6f9fefc8af4ade78391fb0d34e.tar.bz2 |
Merge 8.6
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r-- | generic/tclCmdMZ.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 6f71198..d37f5bf 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -5120,15 +5120,15 @@ TryPostHandler( { Tcl_Obj *resultObj, *cmdObj, *options, *handlerKindObj, **objv; Tcl_Obj *finallyObj; - int finally; + int finallyIndex; objv = (Tcl_Obj **)data[0]; options = (Tcl_Obj *)data[1]; handlerKindObj = (Tcl_Obj *)data[2]; - finally = PTR2INT(data[3]); + finallyIndex = PTR2INT(data[3]); cmdObj = objv[0]; - finallyObj = finally ? objv[finally] : 0; + finallyObj = finallyIndex ? objv[finallyIndex] : 0; /* * Check for limits/rewinding, which override normal trapping behaviour. @@ -5172,7 +5172,7 @@ TryPostHandler( /* The 'finally' script is always the last argument word. */ return TclNREvalObjEx(interp, finallyObj, 0, iPtr->cmdFramePtr, - finally); + finallyIndex); } /* |