diff options
| author | hobbs <hobbs> | 2000-05-26 08:53:40 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-05-26 08:53:40 (GMT) |
| commit | a14ef5dc21d5fb63776b7d6be34b84ecfd368aad (patch) | |
| tree | a406c998489681d6068a7a69a1a2fdcc49338dc2 /generic/tclCompExpr.c | |
| parent | 28c1d61f70d965d141ddad0aa91da2a34886601d (diff) | |
| download | tcl-a14ef5dc21d5fb63776b7d6be34b84ecfd368aad.zip tcl-a14ef5dc21d5fb63776b7d6be34b84ecfd368aad.tar.gz tcl-a14ef5dc21d5fb63776b7d6be34b84ecfd368aad.tar.bz2 | |
* generic/tclCompExpr.c: changed INST_STREQ -> INST_STR_EQ,
INST_STRNEQ -> INST_STR_NEQ
* generic/tclCompile.c: added streq, strneq, strcmp, strlen &
strmatch to the compiled stats instructionTable
* generic/tclCompile.h: added instructions INST_STR_CMP,
INST_STR_INDEX, INST_STR_MATCH
* generic/tclCompCmds.c: added byte compiler support for
[string compare|match|index].
* generic/tclExecute.c:
Changed INST_STR_(N)EQ to return an Int object and not bother
trying to reuse the top stack object.
Added INST_STR_CMP, INST_STR_INDEX, INST_STR_MATCH bytecode ops.
Extended evalstats output info with Tcl_IsShared stat info.
Diffstat (limited to 'generic/tclCompExpr.c')
| -rw-r--r-- | generic/tclCompExpr.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclCompExpr.c b/generic/tclCompExpr.c index 8a781b9..b619e2c 100644 --- a/generic/tclCompExpr.c +++ b/generic/tclCompExpr.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclCompExpr.c,v 1.5 2000/05/09 00:00:34 hobbs Exp $ + * RCS: @(#) $Id: tclCompExpr.c,v 1.6 2000/05/26 08:53:40 hobbs Exp $ */ #include "tclInt.h" @@ -144,8 +144,8 @@ OperatorDesc operatorTable[] = { {"?", 0}, {"!", 1, INST_LNOT}, {"~", 1, INST_BITNOT}, - {"eq", 2, INST_STREQ}, - {"ne", 2, INST_STRNEQ}, + {"eq", 2, INST_STR_EQ}, + {"ne", 2, INST_STR_NEQ}, {NULL} }; |