diff options
| author | hobbs <hobbs> | 2001-05-15 20:07:38 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2001-05-15 20:07:38 (GMT) |
| commit | 27473eef50f36750267fc3cc88717f3aab547004 (patch) | |
| tree | d8d2560d0ed98b1b9b62bbe240f74a464ac12e51 /generic/tclCompile.c | |
| parent | 951c1014fc8daaae2ba8d1c6d4f128314f945311 (diff) | |
| download | tcl-dev_hobbs_branch.zip tcl-dev_hobbs_branch.tar.gz tcl-dev_hobbs_branch.tar.bz2 | |
refactored varname pushing code and some of the bytecode instructions
dev_hobbs_branch
Diffstat (limited to 'generic/tclCompile.c')
| -rw-r--r-- | generic/tclCompile.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index c409726..e1d2017 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -10,7 +10,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.21.4.1 2001/05/11 20:47:44 hobbs Exp $ + * RCS: @(#) $Id: tclCompile.c,v 1.21.4.2 2001/05/15 20:07:38 hobbs Exp $ */ #include "tclInt.h" @@ -232,8 +232,6 @@ InstructionDesc instructionTable[] = { /* Append scalar variable at op1<=255 in frame; value is stktop */ {"appendScalar4", 5, 1, {OPERAND_UINT4}}, /* Append scalar variable at op1 > 255 in frame; value is stktop */ - {"appendScalarStk", 1, 0, {OPERAND_NONE}}, - /* Append scalar; value is stktop, scalar name is stknext */ {"appendArray1", 2, 1, {OPERAND_UINT1}}, /* Append array element; array at op1<=255, value is top then elem */ {"appendArray4", 5, 1, {OPERAND_UINT4}}, @@ -246,8 +244,6 @@ InstructionDesc instructionTable[] = { /* Lappend scalar variable at op1<=255 in frame; value is stktop */ {"lappendScalar4", 5, 1, {OPERAND_UINT4}}, /* Lappend scalar variable at op1 > 255 in frame; value is stktop */ - {"lappendScalarStk", 1, 0, {OPERAND_NONE}}, - /* Lappend scalar; value is stktop, scalar name is stknext */ {"lappendArray1", 2, 1, {OPERAND_UINT1}}, /* Lappend array element; array at op1<=255, value is top then elem */ {"lappendArray4", 5, 1, {OPERAND_UINT4}}, |