summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdIL.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-10-16 22:34:18 (GMT)
committernijtmans <nijtmans>2008-10-16 22:34:18 (GMT)
commit8b464633a0f2df93912ad25af65a5724cd643da2 (patch)
treec92c0492d1db21f9b0c7f880eec5c0cd3ce36762 /generic/tclCmdIL.c
parent2b0bd4b76e50ee9f511c827309e0078efc6f537a (diff)
downloadtcl-8b464633a0f2df93912ad25af65a5724cd643da2.zip
tcl-8b464633a0f2df93912ad25af65a5724cd643da2.tar.gz
tcl-8b464633a0f2df93912ad25af65a5724cd643da2.tar.bz2
Add "const" to many internal
const tables. No functional or API change.
Diffstat (limited to 'generic/tclCmdIL.c')
-rw-r--r--generic/tclCmdIL.c16
1 files changed, 8 insertions, 8 deletions
diff --git a/generic/tclCmdIL.c b/generic/tclCmdIL.c
index d1174ab..a6ee362 100644
--- a/generic/tclCmdIL.c
+++ b/generic/tclCmdIL.c
@@ -16,7 +16,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdIL.c,v 1.161 2008/10/14 19:26:59 dgp Exp $
+ * RCS: @(#) $Id: tclCmdIL.c,v 1.162 2008/10/16 22:34:19 nijtmans Exp $
*/
#include "tclInt.h"
@@ -209,7 +209,7 @@ Tcl_IfObjCmd(
int objc, /* Number of arguments. */
Tcl_Obj *const objv[]) /* Argument objects. */
{
- return Tcl_NRCallObjProc(interp, TclNRIfObjCmd, dummy, objc, objv);
+ return Tcl_NRCallObjProc(interp, TclNRIfObjCmd, dummy, objc, objv);
}
int
@@ -1087,7 +1087,7 @@ InfoFrameCmd(
NULL);
return TCL_ERROR;
}
-
+
/*
* Let us convert to relative so that we know how many levels to go back
*/
@@ -1096,7 +1096,7 @@ InfoFrameCmd(
level -= topLevel;
}
- framePtr = iPtr->cmdFramePtr;
+ framePtr = iPtr->cmdFramePtr;
while (++level <= 0) {
framePtr = framePtr->nextPtr;
if (!framePtr) {
@@ -1137,7 +1137,7 @@ TclInfoFrame(
* This array is indexed by the TCL_LOCATION_... values, except
* for _LAST.
*/
- static const char *typeString[TCL_LOCATION_LAST] = {
+ static const char *const typeString[TCL_LOCATION_LAST] = {
"eval", "eval", "eval", "precompiled", "source", "proc"
};
Tcl_Obj *tmpObj;
@@ -2759,7 +2759,7 @@ Tcl_LsearchObjCmd(
Tcl_Obj *patObj, **listv, *listPtr, *startPtr, *itemPtr;
SortStrCmpFn_t strCmpFn = strcmp;
Tcl_RegExp regexp = NULL;
- static const char *options[] = {
+ static const char *const options[] = {
"-all", "-ascii", "-bisect", "-decreasing", "-dictionary",
"-exact", "-glob", "-increasing", "-index",
"-inline", "-integer", "-nocase", "-not",
@@ -3254,7 +3254,7 @@ Tcl_LsearchObjCmd(
} else {
itemPtr = listv[i];
}
-
+
switch (mode) {
case SORTED:
case EXACT:
@@ -3525,7 +3525,7 @@ Tcl_LsortObjCmd(
SortElement *elementArray, *elementPtr;
SortInfo sortInfo; /* Information about this sort that needs to
* be passed to the comparison function. */
- static const char *switches[] = {
+ static const char *const switches[] = {
"-ascii", "-command", "-decreasing", "-dictionary", "-increasing",
"-index", "-indices", "-integer", "-nocase", "-real", "-stride",
"-unique", NULL