summaryrefslogtreecommitdiffstats
path: root/generic/tclCompile.c
diff options
context:
space:
mode:
authorMiguel Sofer <miguel.sofer@gmail.com>2007-04-07 22:50:04 (GMT)
committerMiguel Sofer <miguel.sofer@gmail.com>2007-04-07 22:50:04 (GMT)
commitf6073309b8eac5d0f72ca9f4cc5a5c4e76fccb16 (patch)
treec2fc940fcbae5d2f56335b0541244c810a577f8e /generic/tclCompile.c
parent56cc087c0f4712ca26899cc96f96d3ca1557884b (diff)
downloadtcl-f6073309b8eac5d0f72ca9f4cc5a5c4e76fccb16.zip
tcl-f6073309b8eac5d0f72ca9f4cc5a5c4e76fccb16.tar.gz
tcl-f6073309b8eac5d0f72ca9f4cc5a5c4e76fccb16.tar.bz2
* generic/tclCompile (tclInstructionTable): fixed bug in
description of INST_START_COMMAND.
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r--generic/tclCompile.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index 419e177..14d092a 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.112 2007/04/03 01:34:36 msofer Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.113 2007/04/07 22:50:05 msofer Exp $
*/
#include "tclInt.h"
@@ -299,7 +299,7 @@ InstructionDesc tclInstructionTable[] = {
/* List Index: push (lindex stktop op4) */
{"listRangeImm", 9, 0, 2, {OPERAND_IDX4, OPERAND_IDX4}},
/* List Range: push (lrange stktop op4 op4) */
- {"startCommand", 9, 0, 1, {OPERAND_INT4,OPERAND_UINT4}},
+ {"startCommand", 9, 0, 2, {OPERAND_INT4,OPERAND_UINT4}},
/* Start of bytecoded command: op is the length of the cmd's code, op2
* is number of commands here */