diff options
| author | mig <mig> | 2013-12-11 16:33:21 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-11 16:33:21 (GMT) |
| commit | d30f9ed8d8b0f72ca79d72296f11f6ab222c11be (patch) | |
| tree | 771ea5857422af1f288f5cc3a7fa564bfc1b1c86 | |
| parent | 10370c8632fad2005c33ab24aded3d30346143df (diff) | |
| download | tcl-d30f9ed8d8b0f72ca79d72296f11f6ab222c11be.zip tcl-d30f9ed8d8b0f72ca79d72296f11f6ab222c11be.tar.gz tcl-d30f9ed8d8b0f72ca79d72296f11f6ab222c11be.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 |