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/tclInt.h | |
| 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/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index e4a7782..9f00077 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3016,6 +3016,7 @@ MODULE_SCOPE int TclMaxListLength(const char *bytes, int numBytes, MODULE_SCOPE int TclMergeReturnOptions(Tcl_Interp *interp, int objc, Tcl_Obj *const objv[], Tcl_Obj **optionsPtrPtr, int *codePtr, int *levelPtr); +MODULE_SCOPE Tcl_Obj * TclNoErrorStack(Tcl_Interp *interp, Tcl_Obj *options); MODULE_SCOPE int TclNokia770Doubles(void); MODULE_SCOPE void TclNsDecrRefCount(Namespace *nsPtr); MODULE_SCOPE void TclObjVarErrMsg(Tcl_Interp *interp, Tcl_Obj *part1Ptr, |