summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordkf <donal.k.fellows@manchester.ac.uk>2007-01-18 11:18:40 (GMT)
committerdkf <donal.k.fellows@manchester.ac.uk>2007-01-18 11:18:40 (GMT)
commit52258ca06d203e548463767e4ba54a5102b639d5 (patch)
tree11417c0b2d28a3254c2ed8d215dbb1170d9ccc11
parente59152c4b7d167237faee057b0326dda4efc89b8 (diff)
downloadtcl-52258ca06d203e548463767e4ba54a5102b639d5.zip
tcl-52258ca06d203e548463767e4ba54a5102b639d5.tar.gz
tcl-52258ca06d203e548463767e4ba54a5102b639d5.tar.bz2
Minor fix to make bytecodes print out properly
-rw-r--r--generic/tclCompile.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c
index e13023f..4cb9256 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.103 2007/01/18 11:12:38 dkf Exp $
+ * RCS: @(#) $Id: tclCompile.c,v 1.104 2007/01/18 11:18:40 dkf Exp $
*/
#include "tclInt.h"
@@ -290,7 +290,7 @@ InstructionDesc tclInstructionTable[] = {
*/
{"expandStart", 1, 0, 0, {OPERAND_NONE}},
/* Start of command with {expand}ed arguments */
- {"expandStkTop", 5, 0, 1, {OPERAND_INT4}},
+ {"expandStkTop", 5, 0, 1, {OPERAND_UINT4}},
/* Expand the list at stacktop: push its elements on the stack */
{"invokeExpanded", 1, 0, 0, {OPERAND_NONE}},
/* Invoke the command marked by the last 'expandStart' */