summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2013-05-29 14:37:58 (GMT)
committerdgp <dgp@users.sourceforge.net>2013-05-29 14:37:58 (GMT)
commit38ae5eca7ffd791e3b3b092969700ef6ee56ba19 (patch)
treec7fd0ed23d26f08bc978279b7d85f6251f9810e7 /generic/tclCompile.c
parent8221c0695aa992657960abbd3d850a9503c633ca (diff)
downloadtcl-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.c2
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 {