summaryrefslogtreecommitdiffstats
path: root/generic/tclOOInfo.c
diff options
context:
space:
mode:
Diffstat (limited to 'generic/tclOOInfo.c')
-rw-r--r--generic/tclOOInfo.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/generic/tclOOInfo.c b/generic/tclOOInfo.c
index d994e94..583907b 100644
--- a/generic/tclOOInfo.c
+++ b/generic/tclOOInfo.c
@@ -9,7 +9,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclOOInfo.c,v 1.9 2008/10/13 21:10:43 dkf Exp $
+ * RCS: @(#) $Id: tclOOInfo.c,v 1.10 2008/10/16 22:34:18 nijtmans Exp $
*/
#ifdef HAVE_CONFIG_H
@@ -415,7 +415,7 @@ InfoObjectIsACmd(
int objc,
Tcl_Obj *const objv[])
{
- static const char *categories[] = {
+ static const char *const categories[] = {
"class", "metaclass", "mixin", "object", "typeof", NULL
};
enum IsACats {
@@ -540,7 +540,7 @@ InfoObjectMethodsCmd(
FOREACH_HASH_DECLS;
Tcl_Obj *namePtr, *resultObj;
Method *mPtr;
- static const char *options[] = {
+ static const char *const options[] = {
"-all", "-localprivate", "-private", NULL
};
enum Options {
@@ -1058,7 +1058,7 @@ InfoClassMethodsCmd(
Tcl_Obj *namePtr, *resultObj;
Method *mPtr;
Class *clsPtr;
- static const char *options[] = {
+ static const char *const options[] = {
"-all", "-localprivate", "-private", NULL
};
enum Options {