diff options
author | msofer <msofer@noemail.net> | 2002-07-16 01:12:49 (GMT) |
---|---|---|
committer | msofer <msofer@noemail.net> | 2002-07-16 01:12:49 (GMT) |
commit | 1afb9fe9e1bb361e97b87e4db0651a6248e04fe2 (patch) | |
tree | d453d4e45a3c71785b722da2525ca363eb49b184 /generic/tclInt.h | |
parent | 99443953e23270ae1d9b97cb5395a70008a723aa (diff) | |
download | tcl-1afb9fe9e1bb361e97b87e4db0651a6248e04fe2.zip tcl-1afb9fe9e1bb361e97b87e4db0651a6248e04fe2.tar.gz tcl-1afb9fe9e1bb361e97b87e4db0651a6248e04fe2.tar.bz2 |
using the new variable name caching possibilities when setting error
results in (Tcl_AddObjErrorInfo) and (TclUpdateReturnInfo)
FossilOrigin-Name: 99b46f3211340589c6821166f72518b67b384095
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 5604129..6a891e0 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -12,7 +12,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.98 2002/07/15 22:18:04 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.99 2002/07/16 01:12:50 msofer Exp $ */ #ifndef _TCLINT @@ -910,6 +910,8 @@ typedef struct ExecEnv { int stackTop; /* Index of current top of stack; -1 when * the stack is empty. */ int stackEnd; /* Index of last usable item in stack. */ + Tcl_Obj *errorInfo; + Tcl_Obj *errorCode; } ExecEnv; /* |