merge 8.5

1 files changed, 7 insertions, 7 deletions

diff --git a/generic/tclTestProcBodyObj.c b/generic/tclTestProcBodyObj.c
index 88bd1c3..644179b 100644
--- a/generic/tclTestProcBodyObj.c
+++ b/generic/tclTestProcBodyObj.c
@@ -17,14 +17,14 @@
  * name and version of this package
  */
 
-static char packageName[] = "procbodytest";
-static char packageVersion[] = "1.0";
+static const char packageName[] = "procbodytest";
+static const char packageVersion[] = "1.0";
 
 /*
  * Name of the commands exported by this package
  */
 
-static char procCommand[] = "proc";
+static const char procCommand[] = "proc";
 
 /*
  * this struct describes an entry in the table of command names and command
@@ -33,7 +33,7 @@ static char procCommand[] = "proc";
 
 typedef struct CmdTable
 {
-    char *cmdName;		/* command name */
+    const char *cmdName;	/* command name */
     Tcl_ObjCmdProc *proc;	/* command proc */
     int exportIt;		/* if 1, export the command */
 } CmdTable;
@@ -46,7 +46,7 @@ static int	ProcBodyTestProcObjCmd(ClientData dummy,
 			Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[]);
 static int	ProcBodyTestInitInternal(Tcl_Interp *interp, int isSafe);
 static int	RegisterCommand(Tcl_Interp* interp,
-			char *namespace, CONST CmdTable *cmdTablePtr);
+			const char *namespace, const CmdTable *cmdTablePtr);
 int             Procbodytest_Init(Tcl_Interp * interp);
 int             Procbodytest_SafeInit(Tcl_Interp * interp);
 
@@ -132,9 +132,9 @@ Procbodytest_SafeInit(
 static int RegisterCommand(interp, namespace, cmdTablePtr)
     Tcl_Interp* interp;		/* the Tcl interpreter for which the operation
 				 * is performed */
-    char *namespace;		/* the namespace in which the command is
+    const char *namespace;		/* the namespace in which the command is
 				 * registered */
-    CONST CmdTable *cmdTablePtr;/* the command to register */
+    const CmdTable *cmdTablePtr;/* the command to register */
 {
     char buf[128];