diff options
| author | ferrieux <ferrieux@users.sourceforge.net> | 2011-08-09 17:01:16 (GMT) |
|---|---|---|
| committer | ferrieux <ferrieux@users.sourceforge.net> | 2011-08-09 17:01:16 (GMT) |
| commit | 653f52ba6008466571d283d523272ae22c2cf2c4 (patch) | |
| tree | 07db51e401be8d97cacd6e665d64e168ebc4802a /generic/tclCompCmds.c | |
| parent | 7884058a52af8573e05691c2e1e40fdfa78ab5db (diff) | |
| download | tcl-653f52ba6008466571d283d523272ae22c2cf2c4.zip tcl-653f52ba6008466571d283d523272ae22c2cf2c4.tar.gz tcl-653f52ba6008466571d283d523272ae22c2cf2c4.tar.bz2 | |
[Bug 3386417] avoid a reference loop between the bytecode and its companion errostack when compiling a syntax error.
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index 083f530..66c03ab 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -3644,7 +3644,7 @@ TclCompileSyntaxError( TclErrorStackResetIf(interp, bytes, numBytes); TclEmitPush(TclRegisterNewLiteral(envPtr, bytes, numBytes), envPtr); CompileReturnInternal(envPtr, INST_SYNTAX, TCL_ERROR, 0, - Tcl_GetReturnOptions(interp, TCL_ERROR)); + TclNoErrorStack(interp, Tcl_GetReturnOptions(interp, TCL_ERROR))); } /* |