diff options
| author | Miguel Sofer <miguel.sofer@gmail.com> | 2002-06-11 15:42:19 (GMT) |
|---|---|---|
| committer | Miguel Sofer <miguel.sofer@gmail.com> | 2002-06-11 15:42:19 (GMT) |
| commit | c1e47417bf2cab1cb467c456f990114f78ad1680 (patch) | |
| tree | a14fcf1723483c4f75d4dcf3eba0ca9c3c19e9e5 /generic/tclCompile.c | |
| parent | 564998e2aa2fb9a4c640a8ed265668c87696fa39 (diff) | |
| download | tcl-c1e47417bf2cab1cb467c456f990114f78ad1680.zip tcl-c1e47417bf2cab1cb467c456f990114f78ad1680.tar.gz tcl-c1e47417bf2cab1cb467c456f990114f78ad1680.tar.bz2 | |
optimised read access to local variables created at run-time
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index bd94b86..3c3a7ff 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompile.c,v 1.33 2002/05/30 15:03:57 msofer Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.34 2002/06/11 15:42:20 msofer Exp $ */ #include "tclInt.h" @@ -1212,7 +1212,7 @@ TclCompileTokens(interp, tokenPtr, count, envPtr) /*onHeap*/ 0), envPtr); } else { localVar = TclFindCompiledLocal(name, nameBytes, - /*create*/ 0, /*flags*/ 0, envPtr->procPtr); + /*create*/ 1, /*flags*/ 0, envPtr->procPtr); if (localVar < 0) { TclEmitPush(TclRegisterLiteral(envPtr, name, nameBytes, /*onHeap*/ 0), envPtr); |