diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2004-12-10 13:09:07 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2004-12-10 13:09:07 (GMT) |
| commit | 624c39990f6db4c1318669baef61b8521e063a54 (patch) | |
| tree | 979c2273d05fafbb74a038762775ac289c222445 /generic/tclInt.h | |
| parent | 38a95a62dcb1fc490f1d0b553eff6a0ddd209bb4 (diff) | |
| download | tcl-624c39990f6db4c1318669baef61b8521e063a54.zip tcl-624c39990f6db4c1318669baef61b8521e063a54.tar.gz tcl-624c39990f6db4c1318669baef61b8521e063a54.tar.bz2 | |
optimised loops that initialise a proc's arguments and compiled local
variables, removing tests from inner loops.
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 c163c2b..11ddcf3 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.204 2004/12/10 00:16:55 dkf Exp $ + * RCS: @(#) $Id: tclInt.h,v 1.205 2004/12/10 13:09:14 msofer Exp $ */ #ifndef _TCLINT @@ -510,6 +510,7 @@ typedef struct Var { #define VAR_ARGUMENT 0x100 #define VAR_TEMPORARY 0x200 #define VAR_RESOLVED 0x400 +#define VAR_IS_ARGS 0x800 /* * Macros to ensure that various flag bits are set properly for variables. |