Missing 'const'

Author: jan.nijtmans

generic/tclClockFmt.c

@@ -1380,7 +1380,7 @@ static TclStrIdxTree *
 ClockMCGetMultiListIdxTree(
     ClockFmtScnCmdArgs *opts,
     int	mcKey,
-    int *mcKeys)
+    const int *mcKeys)
 {
     TclStrIdxTree * idxTree;
     Tcl_Obj *objPtr = TclClockMCGetIdx(opts, mcKey);
@@ -1481,11 +1481,11 @@ static int
 StaticListSearch(
     ClockFmtScnCmdArgs *opts,
     DateInfo *info,
-    const char **lst,
+    const char *const *lst,
     int *val)
 {
     size_t len;
-    const char **s = lst;
+    const char *const *s = lst;
 
     while (*s != NULL) {
 	len = strlen(*s);
@@ -1535,7 +1535,7 @@ ClockScnToken_Month_Proc(
 {
 #if 0
 /* currently unused, test purposes only */
-    static const char * months[] = {
+    static const char *const months[] = {
 	/* full */
 	"January", "February", "March",
 	"April",   "May",      "June",
@@ -1552,7 +1552,7 @@ ClockScnToken_Month_Proc(
     }
     yyMonth = (val % 12) + 1;
 #else
-    static int monthsKeys[] = {MCLIT_MONTHS_FULL, MCLIT_MONTHS_ABBREV, 0};
+    static const int monthsKeys[] = {MCLIT_MONTHS_FULL, MCLIT_MONTHS_ABBREV, 0};
 
     int ret, val;
     int minLen, maxLen;
@@ -1583,7 +1583,7 @@ ClockScnToken_DayOfWeek_Proc(
     DateInfo *info,
     const ClockScanToken *tok)
 {
-    static int dowKeys[] = {MCLIT_DAYS_OF_WEEK_ABBREV, MCLIT_DAYS_OF_WEEK_FULL, 0};
+    static const int dowKeys[] = {MCLIT_DAYS_OF_WEEK_ABBREV, MCLIT_DAYS_OF_WEEK_FULL, 0};
 
     int ret, val;
     int minLen, maxLen;

generic/tclIcu.c

@@ -283,7 +283,7 @@ static struct {
 TCL_DECLARE_MUTEX(icu_mutex);
 
 /* Options used by multiple normalization functions */
-static const char *normalizationForms[] = {"nfc", "nfd", "nfkc", "nfkd", NULL};
+static const char *const normalizationForms[] = {"nfc", "nfd", "nfkc", "nfkd", NULL};
 typedef enum { MODE_NFC, MODE_NFD, MODE_NFKC, MODE_NFKD } NormalizationMode;
 
 
@@ -1003,7 +1003,7 @@ static int IcuParseConvertOptions(
 
     /* Use GetIndexFromObj for option parsing so -failindex can be added later */
 
-    static const char *optNames[] = {"-profile", "-failindex", NULL};
+    static const char *const optNames[] = {"-profile", "-failindex", NULL};
     enum { OPT_PROFILE, OPT_FAILINDEX } opt;
     int i;
     int strict = 1;
@@ -1166,7 +1166,7 @@ IcuNormalizeObjCmd(
     int objc,			/* Number of arguments. */
     Tcl_Obj *const objv[])	/* Argument objects. */
 {
-    static const char *optNames[] = {"-profile", "-mode", NULL};
+    static const char *const optNames[] = {"-profile", "-mode", NULL};
     enum { OPT_PROFILE, OPT_MODE } opt;
 
     if (objc < 2) {

generic/tclOODefineCmds.c

@@ -1903,7 +1903,7 @@ TclOODefineDefnNsObjCmd(
     int objc,
     Tcl_Obj *const *objv)
 {
-    static const char *kindList[] = {
+    static const char *const kindList[] = {
 	"-class",
 	"-instance",
 	NULL

generic/tclOOInfo.c

@@ -1129,7 +1129,7 @@ InfoClassDefnNsCmd(
     int objc,
     Tcl_Obj *const objv[])
 {
-    static const char *kindList[] = {
+    static const char *const kindList[] = {
 	"-class",
 	"-instance",
 	NULL

generic/tclTest.c

@@ -1868,7 +1868,7 @@ TestdoubledigitsCmd(
     int objc,			/* Parameter count */
     Tcl_Obj* const objv[])	/* Parameter vector */
 {
-    static const char * const options[] = {
+    static const char *const options[] = {
 	"shortest",
 	"e",
 	"f",
@@ -3689,16 +3689,16 @@ TestlinkarrayCmd(
     int objc,		   /* Number of arguments. */
     Tcl_Obj *const objv[])      /* Argument objects. */
 {
-    static const char *LinkOption[] = {
+    static const char *const LinkOption[] = {
 	"update", "remove", "create", NULL
     };
     enum LinkOptionEnum { LINK_UPDATE, LINK_REMOVE, LINK_CREATE } optionIndex;
-    static const char *LinkType[] = {
+    static const char *const LinkType[] = {
 	"char", "uchar", "short", "ushort", "int", "uint", "long", "ulong",
 	"wide", "uwide", "float", "double", "string", "char*", "binary", NULL
     };
     /* all values after TCL_LINK_CHARS_ARRAY are used as arrays (see below) */
-    static int LinkTypes[] = {
+    static const int LinkTypes[] = {
 	TCL_LINK_CHAR, TCL_LINK_UCHAR,
 	TCL_LINK_SHORT, TCL_LINK_USHORT, TCL_LINK_INT, TCL_LINK_UINT,
 	TCL_LINK_LONG, TCL_LINK_ULONG, TCL_LINK_WIDE_INT, TCL_LINK_WIDE_UINT,