diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2005-04-01 16:18:32 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2005-04-01 16:18:32 (GMT) |
| commit | 5950047f06d1ebff15c5829817ec1ba437dacc60 (patch) | |
| tree | 5a831a5ccc15f8b67b722dfd14a290467a48a3a7 /generic/tclInt.h | |
| parent | 67eadc7d6cf028cb746dd535f431bc5d655ea6a5 (diff) | |
| download | tcl-5950047f06d1ebff15c5829817ec1ba437dacc60.zip tcl-5950047f06d1ebff15c5829817ec1ba437dacc60.tar.gz tcl-5950047f06d1ebff15c5829817ec1ba437dacc60.tar.bz2 | |
* generic/tclExecute.c:
* generic/tclInt.h: ExecEnv now stores two Tcl_Obj* pointing to
the constants "0" and "1", for use by TEBC.
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 756fdee..4521ff4 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.217 2005/04/01 15:17:24 msofer Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.218 2005/04/01 16:18:59 msofer Exp $ */ #ifndef _TCLINT @@ -956,6 +956,7 @@ typedef struct ExecEnv { Tcl_Obj **tosPtr; /* Points to current top of stack; * (stackPtr-1) when the stack is empty. */ Tcl_Obj **endPtr; /* Points to last usable item in stack. */ + Tcl_Obj *constants[2]; /* Pointers to constant "0" and "1" objs. */ } ExecEnv; /* |