diff options
| author | ferrieux@users.sourceforge.net <ferrieux> | 2009-11-16 17:38:08 (GMT) |
|---|---|---|
| committer | ferrieux@users.sourceforge.net <ferrieux> | 2009-11-16 17:38:08 (GMT) |
| commit | 6e27fbe7b6b2d15ec54f2e4fbf044d6a3fa7d079 (patch) | |
| tree | 1b93d42b56b88ab1862f7389658528282be889d6 /generic/tclInt.h | |
| parent | 6a62b18aa7b9297b6ab917f1e6b6c9127d7e952e (diff) | |
| download | tcl-6e27fbe7b6b2d15ec54f2e4fbf044d6a3fa7d079.zip tcl-6e27fbe7b6b2d15ec54f2e4fbf044d6a3fa7d079.tar.gz tcl-6e27fbe7b6b2d15ec54f2e4fbf044d6a3fa7d079.tar.bz2 | |
(forward port) Fix [Bug 2891556] and improve test to detect similar manifestations in the future. Add tcltest support for finalization.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 0f6654b..be536a9 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -15,7 +15,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclInt.h,v 1.445 2009/09/30 03:11:26 dgp Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.446 2009/11/16 17:38:08 ferrieux Exp $ */ #ifndef _TCLINT @@ -1895,6 +1895,8 @@ typedef struct Interp { Tcl_Obj *eiVar; /* cached ref to ::errorInfo variable. */ Tcl_Obj *errorCode; /* errorCode value (now as a Tcl_Obj). */ Tcl_Obj *ecVar; /* cached ref to ::errorInfo variable. */ + Tcl_Obj *errorStack; /* [info errorstack] value (as a Tcl_Obj). */ + int resetErrorStack; /* controls cleaning up of ::errorStack */ int returnLevel; /* [return -level] parameter. */ /* |