summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-11-24 03:08:50 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-11-24 03:08:50 (GMT)
commit33eb2510ff53b7fd3b32ea1c84b4ef85d00c10f8 (patch)
treee0b4c66155f7aa06da89bede96167e39fb8b900b
parent598b0dc3f2ad75fcacdec6ed563219816b1db0ef (diff)
parent51acb4e23f6c50b6cd0029ab6503034ce76bea05 (diff)
downloadtcl-33eb2510ff53b7fd3b32ea1c84b4ef85d00c10f8.zip
tcl-33eb2510ff53b7fd3b32ea1c84b4ef85d00c10f8.tar.gz
tcl-33eb2510ff53b7fd3b32ea1c84b4ef85d00c10f8.tar.bz2
[e087812465] Trim back operatorStrings array to just the entries that are needed. Trims away the part of the array that was out of sync with the opcodes.
-rw-r--r--generic/tclExecute.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index 2e03ab4..337a75f 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -81,9 +81,7 @@ int tclTraceExec = 0;
static const char *const operatorStrings[] = {
"||", "&&", "|", "^", "&", "==", "!=", "<", ">", "<=", ">=", "<<", ">>",
- "+", "-", "*", "/", "%", "+", "-", "~", "!",
- "BUILTIN FUNCTION", "FUNCTION",
- "", "", "", "", "", "", "", "", "eq", "ne"
+ "+", "-", "*", "/", "%", "+", "-", "~", "!"
};
/*
@@ -9830,7 +9828,7 @@ IllegalExprOperandType(
if (opcode == INST_EXPON) {
operator = "**";
- } else if (opcode <= INST_STR_NEQ) {
+ } else if (opcode <= INST_LNOT) {
operator = operatorStrings[opcode - INST_LOR];
}