diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-04-18 21:38:50 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-04-18 21:38:50 (GMT) |
| commit | f0d0884f48e41e0c38d424a48037709f7a4917e0 (patch) | |
| tree | 21613b0eb89c7761720b11b131e69e333052ed9b /generic/tclExecute.c | |
| parent | 6e88f46369735979af46d8a1fa1a3a0df8fb572e (diff) | |
| download | tcl-f0d0884f48e41e0c38d424a48037709f7a4917e0.zip tcl-f0d0884f48e41e0c38d424a48037709f7a4917e0.tar.gz tcl-f0d0884f48e41e0c38d424a48037709f7a4917e0.tar.bz2 | |
make some more internal tables CONST
fix compilation with -DNO_CONST
Diffstat (limited to 'generic/tclExecute.c')
| -rw-r--r-- | generic/tclExecute.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclExecute.c b/generic/tclExecute.c index 1c9d99d..9f01cbb 100644 --- a/generic/tclExecute.c +++ b/generic/tclExecute.c @@ -87,7 +87,7 @@ int tclTraceExec = 0; * expression opcodes (e.g., INST_LOR) in tclCompile.h. */ -static char *operatorStrings[] = { +static CONST char *CONST operatorStrings[] = { "||", "&&", "|", "^", "&", "==", "!=", "<", ">", "<=", ">=", "<<", ">>", "+", "-", "*", "/", "%", "+", "-", "~", "!", "BUILTIN FUNCTION", "FUNCTION", @@ -100,7 +100,7 @@ static char *operatorStrings[] = { */ #ifdef TCL_COMPILE_DEBUG -static char *resultStrings[] = { +static CONST char *CONST resultStrings[] = { "TCL_OK", "TCL_ERROR", "TCL_RETURN", "TCL_BREAK", "TCL_CONTINUE" }; #endif @@ -397,7 +397,7 @@ static void InitByteCodeExecution _ANSI_ARGS_(( Tcl_Interp *interp)); #ifdef TCL_COMPILE_DEBUG static void PrintByteCodeInfo _ANSI_ARGS_((ByteCode *codePtr)); -static char * StringForResultCode _ANSI_ARGS_((int result)); +static CONST char * StringForResultCode _ANSI_ARGS_((int result)); static void ValidatePcAndStackTop _ANSI_ARGS_(( ByteCode *codePtr, unsigned char *pc, int stackTop, int stackLowerBound)); @@ -6564,7 +6564,7 @@ EvalStatsCmd(unused, interp, objc, objv) *---------------------------------------------------------------------- */ -static char * +static CONST char * StringForResultCode(result) int result; /* The Tcl result code for which to * generate a string. */ |