summaryrefslogtreecommitdiffstats
path: root/generic/tclExecute.c
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2014-11-24 03:00:03 (GMT)
committerdgp <dgp@users.sourceforge.net>2014-11-24 03:00:03 (GMT)
commit51acb4e23f6c50b6cd0029ab6503034ce76bea05 (patch)
tree9960d41d3de970ae9b157779dd57b026c2303484 /generic/tclExecute.c
parentb7b8194d8178e6ed5b12f5b2ea3eef30bb132c99 (diff)
downloadtcl-51acb4e23f6c50b6cd0029ab6503034ce76bea05.zip
tcl-51acb4e23f6c50b6cd0029ab6503034ce76bea05.tar.gz
tcl-51acb4e23f6c50b6cd0029ab6503034ce76bea05.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.
Diffstat (limited to 'generic/tclExecute.c')
-rw-r--r--generic/tclExecute.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c
index c4f9836..b9415e5 100644
--- a/generic/tclExecute.c
+++ b/generic/tclExecute.c
@@ -75,9 +75,7 @@ int tclTraceExec = 0;
static const char *const operatorStrings[] = {
"||", "&&", "|", "^", "&", "==", "!=", "<", ">", "<=", ">=", "<<", ">>",
- "+", "-", "*", "/", "%", "+", "-", "~", "!",
- "BUILTIN FUNCTION", "FUNCTION",
- "", "", "", "", "", "", "", "", "eq", "ne"
+ "+", "-", "*", "/", "%", "+", "-", "~", "!"
};
/*
@@ -7714,7 +7712,7 @@ IllegalExprOperandType(
if (opcode == INST_EXPON) {
operator = "**";
- } else if (opcode <= INST_STR_NEQ) {
+ } else if (opcode <= INST_LNOT) {
operator = operatorStrings[opcode - INST_LOR];
}