diff options
| author | dgp <dgp@users.sourceforge.net> | 2004-10-21 17:07:28 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2004-10-21 17:07:28 (GMT) |
| commit | 055d04eb7c2503a7531fe07aa46252b2476e1db4 (patch) | |
| tree | 9f8028b7ed3ca8902a548293045e037167ee023d /generic/tclInt.h | |
| parent | 302b35c0ac3658a27a30f795d3229e8a43eb5379 (diff) | |
| download | tcl-055d04eb7c2503a7531fe07aa46252b2476e1db4.zip tcl-055d04eb7c2503a7531fe07aa46252b2476e1db4.tar.gz tcl-055d04eb7c2503a7531fe07aa46252b2476e1db4.tar.bz2 | |
* generic/tclInt.h (Interp):
* generic/tclBasic.c (Tcl_CreateInterp,Tcl_DeleteInterp):
* generic/tclResult.c (GetKeys,ReleaseKeys,etc.):
Moved the key values of the return options dictionary out of
private fields of the Interp struct and into thread-static
values managed in tclResult.c.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 90f02ac..252d06b 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.185 2004/10/21 15:19:46 dgp Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.186 2004/10/21 17:07:31 dgp Exp $ */ #ifndef _TCLINT @@ -1322,12 +1322,6 @@ typedef struct Interp { /* Fields used to manage extensible return options (TIP 90) */ Tcl_Obj *returnOpts; /* A dictionary holding the options to the * last [return] command */ - Tcl_Obj *returnCodeKey; /* holds "-code" */ - Tcl_Obj *returnErrorcodeKey; /* holds "-errorcode" */ - Tcl_Obj *returnErrorinfoKey; /* holds "-errorinfo" */ - Tcl_Obj *returnErrorlineKey; /* holds "-errorline" */ - Tcl_Obj *returnLevelKey; /* holds "-level" */ - Tcl_Obj *returnOptionsKey; /* holds "-options" */ Tcl_Obj *errorInfo; /* errorInfo value (now as a Tcl_Obj) */ Tcl_Obj *eiVar; /* cached ref to ::errorInfo variable */ |