diff options
| author | mig <mig> | 2013-12-26 15:25:14 (GMT) |
|---|---|---|
| committer | mig <mig> | 2013-12-26 15:25:14 (GMT) |
| commit | 9303d8ee2e51f274f1c9f60ae94176970641d9cf (patch) | |
| tree | 4e26b53446b2d739a8a99c1422b3585ef47af58a | |
| parent | 3b06f70775be10c7547c05c27e55d4ef0a65ee0c (diff) | |
| download | tcl-dkf_review.zip tcl-dkf_review.tar.gz tcl-dkf_review.tar.bz2 | |
remove uninitialized variable and the code that used it
dkf_review
DKF: very ill-advised; changes semantics of -during handling.
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 7 |
1 files changed, 0 insertions, 7 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index 3e4a55a..8b3e98c 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -2359,8 +2359,6 @@ IssueTryClausesInstructions( forwardsNeedFixing = 1; JUMP4( JUMP, forwardsToFix[i]); } else { - int dontChangeOptions; - forwardsToFix[i] = -1; if (forwardsNeedFixing) { forwardsNeedFixing = 0; @@ -2383,11 +2381,7 @@ IssueTryClausesInstructions( TclAdjustStackDepth(-1, envPtr); OP( PUSH_RESULT); OP( PUSH_RETURN_OPTIONS); - OP( PUSH_RETURN_CODE); OP( END_CATCH); - PUSH( "1"); - OP( EQ); - JUMP1( JUMP_FALSE, dontChangeOptions); LOAD( optionsVar); OP4( REVERSE, 2); STORE( optionsVar); @@ -2396,7 +2390,6 @@ IssueTryClausesInstructions( OP4( REVERSE, 2); OP44( DICT_SET, 1, optionsVar); TclAdjustStackDepth(-1, envPtr); - FIXJUMP1( dontChangeOptions); OP4( REVERSE, 2); INVOKE( RETURN_STK); } |