summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authormig <mig>2013-12-11 16:27:59 (GMT)
committermig <mig>2013-12-11 16:27:59 (GMT)
commit1ef52b35f0c918fa1c081116f142afd4e244eaf1 (patch)
tree994225af5d484bd3822c8568dbb192de42653500 /generic
parentc7d612f81758056c1d7511f1f4f8dff108ef76d7 (diff)
downloadtcl-1ef52b35f0c918fa1c081116f142afd4e244eaf1.zip
tcl-1ef52b35f0c918fa1c081116f142afd4e244eaf1.tar.gz
tcl-1ef52b35f0c918fa1c081116f142afd4e244eaf1.tar.bz2
comments
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompCmds.c8
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c
index 7997efa..e071bbd 100644
--- a/generic/tclCompCmds.c
+++ b/generic/tclCompCmds.c
@@ -645,6 +645,11 @@ TclCompileCatchCmd(
(int)(CurrentOffset(envPtr) - jumpFixup.codeOffset));
}
+ /*
+ * Push the return options if the caller wants them. This needs to happen
+ * before INST_END_CATCH
+ */
+
if (optsIndex != -1) {
TclEmitOpcode( INST_PUSH_RETURN_OPTIONS, envPtr);
}
@@ -656,7 +661,8 @@ TclCompileCatchCmd(
TclEmitOpcode( INST_END_CATCH, envPtr);
/*
- * Push the return options if the caller wants them.
+ * Save the result and return options if the caller wants them. This needs
+ * to happen after INST_END_CATCH (compile-3.6/7).
*/
if (optsIndex != -1) {