Add "const" to many internal

const tables, so those will be
put by the C-compiler in the
TEXT segment in stead of the
DATA segment. This makes those
table sharable in shared libraries.

1 files changed, 4 insertions, 4 deletions

diff --git a/generic/tkConsole.c b/generic/tkConsole.c
index 5d0ba6e..a6825ea 100644
--- a/generic/tkConsole.c
+++ b/generic/tkConsole.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkConsole.c,v 1.37 2008/04/27 22:38:56 dkf Exp $
+ * RCS: @(#) $Id: tkConsole.c,v 1.38 2008/10/17 23:18:37 nijtmans Exp $
  */
 
 #include "tk.h"
@@ -114,7 +114,7 @@ ShouldUseConsoleChannel(
     DWORD consoleParams;
     DWORD fileType;
     int mode;
-    char *bufMode;
+    const char *bufMode;
     HANDLE handle;
 
     switch (type) {
@@ -673,7 +673,7 @@ ConsoleObjCmd(
     Tcl_Obj *const objv[])	/* Argument objects */
 {
     int index, result;
-    static const char *options[] = {"eval", "hide", "show", "title", NULL};
+    static const char *const options[] = {"eval", "hide", "show", "title", NULL};
     enum option {CON_EVAL, CON_HIDE, CON_SHOW, CON_TITLE};
     Tcl_Obj *cmd = NULL;
     ConsoleInfo *info = (ConsoleInfo *) clientData;
@@ -760,7 +760,7 @@ InterpreterObjCmd(
     Tcl_Obj *const objv[])	/* Argument objects */
 {
     int index, result = TCL_OK;
-    static const char *options[] = {"eval", "record", NULL};
+    static const char *const options[] = {"eval", "record", NULL};
     enum option {OTHER_EVAL, OTHER_RECORD};
     ConsoleInfo *info = clientData;
     Tcl_Interp *otherInterp = info->interp;