diff options
| author | hobbs <hobbs> | 2000-05-09 00:00:34 (GMT) |
|---|---|---|
| committer | hobbs <hobbs> | 2000-05-09 00:00:34 (GMT) |
| commit | 427c904742d9d5aec8068fce38a28be9ae65af08 (patch) | |
| tree | 1e3bab60e826e937b67fa7d70d97f4f352fe315a /generic/tclCompile.h | |
| parent | 9f7b9b72befea46deb71233146973eea88223af0 (diff) | |
| download | tcl-427c904742d9d5aec8068fce38a28be9ae65af08.zip tcl-427c904742d9d5aec8068fce38a28be9ae65af08.tar.gz tcl-427c904742d9d5aec8068fce38a28be9ae65af08.tar.bz2 | |
* doc/expr.n:
* tests/expr.test:
* tests/expr-old.test: added tests for 'eq' and 'ne'
* generic/tclExecute.c:
* generic/tclCompile.h: added INST_STREQ and INST_STRNEQ opcodes
that do strict string comparisons.
* generic/tclCompExpr.c: added 'eq' and 'ne' string comparison
operators.
* generic/tclParseExpr.c (GetLexeme): added 'eq' and 'ne' expr
parse terms (string (in)equality check).
Diffstat (limited to 'generic/tclCompile.h')
| -rw-r--r-- | generic/tclCompile.h | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h index 310e67e..aa72c93 100644 --- a/generic/tclCompile.h +++ b/generic/tclCompile.h @@ -2,11 +2,12 @@ * tclCompile.h -- * * Copyright (c) 1996-1998 Sun Microsystems, Inc. + * Copyright (c) 1998-2000 by Scriptics Corporation. * * 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.11 1999/05/23 16:37:14 surles Exp $ + * RCS: @(#) $Id: tclCompile.h,v 1.12 2000/05/09 00:00:34 hobbs Exp $ */ #ifndef _TCLCOMPILATION @@ -493,8 +494,12 @@ typedef struct ByteCode { #define INST_PUSH_RESULT 71 #define INST_PUSH_RETURN_CODE 72 +/* Opcodes 73 to 74 */ +#define INST_STREQ 73 +#define INST_STRNEQ 74 + /* The last opcode */ -#define LAST_INST_OPCODE 72 +#define LAST_INST_OPCODE 74 /* * Table describing the Tcl bytecode instructions: their name (for |