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/tclCompile.h | |
| 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/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index a7efb6b..935f5a7 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -7,7 +7,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.h,v 1.13 2000/05/23 22:10:51 ericm Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.14 2000/05/26 08:53:42 hobbs Exp $ */ #ifndef _TCLCOMPILATION @@ -495,12 +495,15 @@ typedef struct ByteCode { #define INST_PUSH_RETURN_CODE 72 /* Opcodes 73 to 74 */ -#define INST_STREQ 73 -#define INST_STRNEQ 74 -#define INST_STRLEN 75 +#define INST_STR_EQ 73 +#define INST_STR_NEQ 74 +#define INST_STR_CMP 75 +#define INST_STR_LEN 76 +#define INST_STR_INDEX 77 +#define INST_STR_MATCH 78 /* The last opcode */ -#define LAST_INST_OPCODE 75 +#define LAST_INST_OPCODE 78 /* * Table describing the Tcl bytecode instructions: their name (for |