diff options
author | dkf <donal.k.fellows@manchester.ac.uk> | 2019-06-05 19:34:11 (GMT) |
---|---|---|
committer | dkf <donal.k.fellows@manchester.ac.uk> | 2019-06-05 19:34:11 (GMT) |
commit | 85539b66a0aba5e82d17d3974d13370a13a5a64a (patch) | |
tree | b8c75b4183b6978b52b31e7aaccd51741ce857a3 /generic/tclCompile.c | |
parent | 10e31bc252115c3c1a4f1892c14c875e37af6e7a (diff) | |
download | tcl-85539b66a0aba5e82d17d3974d13370a13a5a64a.zip tcl-85539b66a0aba5e82d17d3974d13370a13a5a64a.tar.gz tcl-85539b66a0aba5e82d17d3974d13370a13a5a64a.tar.bz2 |
Start of implementation of string comparison operators.
Diffstat (limited to 'generic/tclCompile.c')
-rw-r--r-- | generic/tclCompile.c | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/generic/tclCompile.c b/generic/tclCompile.c index c53d3ad..65ea105 100644 --- a/generic/tclCompile.c +++ b/generic/tclCompile.c @@ -667,6 +667,15 @@ InstructionDesc const tclInstructionTable[] = { * default is pushed instead. * Stack: ... dict key1 ... keyN default => ... value */ + {"strlt", 1, -1, 0, {OPERAND_NONE}}, + /* String Less: push (stknext < stktop) */ + {"strgt", 1, -1, 0, {OPERAND_NONE}}, + /* String Greater: push (stknext > stktop) */ + {"strle", 1, -1, 0, {OPERAND_NONE}}, + /* String Less or equal: push (stknext <= stktop) */ + {"strge", 1, -1, 0, {OPERAND_NONE}}, + /* String Greater or equal: push (stknext >= stktop) */ + {NULL, 0, 0, 0, {OPERAND_NONE}} }; |