diff options
| author | donal.k.fellows@manchester.ac.uk <dkf> | 2013-10-08 09:02:50 (GMT) |
|---|---|---|
| committer | donal.k.fellows@manchester.ac.uk <dkf> | 2013-10-08 09:02:50 (GMT) |
| commit | 6adaceec6339a5b2e3fa33fe2c50581381fb73e4 (patch) | |
| tree | 597e46323b2e5e99c4ce5b7637219be985773d6b /generic/tclCompCmdsSZ.c | |
| parent | c3eafd6b5b1b130fda53db2f9ac98739d50df56e (diff) | |
| download | tcl-6adaceec6339a5b2e3fa33fe2c50581381fb73e4.zip tcl-6adaceec6339a5b2e3fa33fe2c50581381fb73e4.tar.gz tcl-6adaceec6339a5b2e3fa33fe2c50581381fb73e4.tar.bz2 | |
Working towards better handling of stack balance with break and continue exceptions.
Diffstat (limited to 'generic/tclCompCmdsSZ.c')
| -rw-r--r-- | generic/tclCompCmdsSZ.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompCmdsSZ.c b/generic/tclCompCmdsSZ.c index 44cb66e..a5ec731 100644 --- a/generic/tclCompCmdsSZ.c +++ b/generic/tclCompCmdsSZ.c @@ -1965,7 +1965,7 @@ TclCompileThrowCmd( OP( LIST_LENGTH); OP1( JUMP_FALSE1, 16); OP4( LIST, 2); - OP44( RETURN_IMM, 1, 0); + OP44( RETURN_IMM, TCL_ERROR, 0); TclAdjustStackDepth(2, envPtr); OP( POP); OP( POP); @@ -1974,7 +1974,7 @@ TclCompileThrowCmd( PUSH( "type must be non-empty list"); PUSH( "-errorcode {TCL OPERATION THROW BADEXCEPTION}"); } - OP44( RETURN_IMM, 1, 0); + OP44( RETURN_IMM, TCL_ERROR, 0); return TCL_OK; } |