diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-07-13 07:56:44 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-07-13 07:56:44 (GMT) |
| commit | e5bb3b382991b32f2e311b0b7a3703727f0705ff (patch) | |
| tree | 6c4e0a7bfc278bd71510338ba14d8a09a91d3d08 /generic/tclCmdMZ.c | |
| parent | 3d82d5537cefbd3ebde9c2b10a06bcd25b968412 (diff) | |
| download | tcl-e5bb3b382991b32f2e311b0b7a3703727f0705ff.zip tcl-e5bb3b382991b32f2e311b0b7a3703727f0705ff.tar.gz tcl-e5bb3b382991b32f2e311b0b7a3703727f0705ff.tar.bz2 | |
finally -> finallyIndex, preventing conflicts with Tru64 headers (reported by Jay K)
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 c895039..da3fc8b 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -5251,15 +5251,15 @@ TryPostHandler( { Tcl_Obj *resultObj, *cmdObj, *options, *handlerKindObj, **objv; Tcl_Obj *finallyObj; - int finally; + int finallyIndex; objv = data[0]; options = data[1]; handlerKindObj = 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. @@ -5303,7 +5303,7 @@ TryPostHandler( /* The 'finally' script is always the last argument word. */ return TclNREvalObjEx(interp, finallyObj, 0, iPtr->cmdFramePtr, - finally); + finallyIndex); } /* |