diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-05-29 14:37:58 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-05-29 14:37:58 (GMT) |
| commit | 38ae5eca7ffd791e3b3b092969700ef6ee56ba19 (patch) | |
| tree | c7fd0ed23d26f08bc978279b7d85f6251f9810e7 /generic/tclCompile.c | |
| parent | 8221c0695aa992657960abbd3d850a9503c633ca (diff) | |
| download | tcl-38ae5eca7ffd791e3b3b092969700ef6ee56ba19.zip tcl-38ae5eca7ffd791e3b3b092969700ef6ee56ba19.tar.gz tcl-38ae5eca7ffd791e3b3b092969700ef6ee56ba19.tar.bz2 | |
Stop emitting the instructions INST_*_SCALAR_STK*. They are identical to
their INST_*_STK* counterparts.
Having done that, it is clear the "simpleVarName" return from TclPushVarName
provides nothing of use to any of its callers. Eliminate that. Also make
TPVN return void, instead of int.
Bring the TPVN header comments up to date; they were quite rotten.
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index 87e620c..dd179ea 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -2376,7 +2376,7 @@ TclCompileVarSubst( if (tokenPtr->numComponents == 1) { if (localVar < 0) { - TclEmitOpcode(INST_LOAD_SCALAR_STK, envPtr); + TclEmitOpcode(INST_LOAD_STK, envPtr); } else if (localVar <= 255) { TclEmitInstInt1(INST_LOAD_SCALAR1, localVar, envPtr); } else { |