diff options
| author | ferrieux@users.sourceforge.net <ferrieux> | 2011-08-09 17:01:16 (GMT) |
|---|---|---|
| committer | ferrieux@users.sourceforge.net <ferrieux> | 2011-08-09 17:01:16 (GMT) |
| commit | 623d17cd799d504dde63708c622e4f31b87d6708 (patch) | |
| tree | 07db51e401be8d97cacd6e665d64e168ebc4802a /generic/tclCompCmds.c | |
| parent | e28099940b45e61945dba656309e26ea5370a170 (diff) | |
| download | tcl-623d17cd799d504dde63708c622e4f31b87d6708.zip tcl-623d17cd799d504dde63708c622e4f31b87d6708.tar.gz tcl-623d17cd799d504dde63708c622e4f31b87d6708.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))); } /* |