summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authormig <mig>2013-12-11 16:33:21 (GMT)
committermig <mig>2013-12-11 16:33:21 (GMT)
commitd2ffd68c98038a0690f6a6e2f9a32b6439a7fe7e (patch)
tree771ea5857422af1f288f5cc3a7fa564bfc1b1c86 /generic
parent1ef52b35f0c918fa1c081116f142afd4e244eaf1 (diff)
downloadtcl-d2ffd68c98038a0690f6a6e2f9a32b6439a7fe7e.zip
tcl-d2ffd68c98038a0690f6a6e2f9a32b6439a7fe7e.tar.gz
tcl-d2ffd68c98038a0690f6a6e2f9a32b6439a7fe7e.tar.bz2
comments
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompCmds.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index e071bbd..43504bf 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -635,16 +635,13 @@ TclCompileCatchCmd(
TclEmitOpcode( INST_PUSH_RESULT, envPtr);
TclEmitOpcode( INST_PUSH_RETURN_CODE, envPtr);
- /*
- * Update the target of the jump after the "no errors" code.
- */
-
- /* Stack at this point: result returnCode */
if (TclFixupForwardJumpToHere(envPtr, &jumpFixup, 127)) {
Tcl_Panic("TclCompileCatchCmd: bad jump distance %d",
(int)(CurrentOffset(envPtr) - jumpFixup.codeOffset));
}
+ /* Stack at this point: result returnCode */
+
/*
* Push the return options if the caller wants them. This needs to happen
* before INST_END_CATCH