Change ForIterData, make it const-safe.

2 files changed, 4 insertions, 4 deletions

diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index 85b098a..44fe3d6 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.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: tclCmdAH.c,v 1.119 2009/08/12 16:06:43 dgp Exp $
+ * RCS: @(#) $Id: tclCmdAH.c,v 1.120 2009/08/16 12:25:07 nijtmans Exp $
  */
 
 #include "tclInt.h"
@@ -1919,7 +1919,7 @@ TclNRForIterCallback(
     Tcl_Obj *cond = iterPtr->cond;
     Tcl_Obj *body = iterPtr->body;
     Tcl_Obj *next = iterPtr->next;
-    char *msg = iterPtr->msg;
+    const char *msg = iterPtr->msg;
     int value;
 
     if ((result != TCL_OK) && (result != TCL_CONTINUE)) {
diff --git a/generic/tclInt.h b/generic/tclInt.h
index b441bf6b..a381678 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -15,7 +15,7 @@
  * See the file "license.terms" for information on usage and redistribution of
  * this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tclInt.h,v 1.433 2009/08/12 16:06:44 dgp Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.434 2009/08/16 12:25:06 nijtmans Exp $
  */
 
 #ifndef _TCLINT
@@ -2638,7 +2638,7 @@ typedef struct ForIterData {
     Tcl_Obj* cond; /* loop condition expression */
     Tcl_Obj* body; /* loop body */
     Tcl_Obj* next; /* loop step script, NULL for 'while' */
-    char*    msg;  /* error message part */
+    const char* msg;  /* error message part */
     int      word; /* Index of the body script in the command */
 } ForIterData;