diff options
| author | mig <mig> | 2013-12-11 16:33:21 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-11 16:33:21 (GMT) |
| commit | d2ffd68c98038a0690f6a6e2f9a32b6439a7fe7e (patch) | |
| tree | 771ea5857422af1f288f5cc3a7fa564bfc1b1c86 | |
| parent | 1ef52b35f0c918fa1c081116f142afd4e244eaf1 (diff) | |
| download | tcl-d2ffd68c98038a0690f6a6e2f9a32b6439a7fe7e.zip tcl-d2ffd68c98038a0690f6a6e2f9a32b6439a7fe7e.tar.gz tcl-d2ffd68c98038a0690f6a6e2f9a32b6439a7fe7e.tar.bz2 | |
comments
| -rw-r--r-- | generic/tclCompCmds.c | 7 |
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 |