From 7224aab4417a253cc7246233a59a1a0e368ce191 Mon Sep 17 00:00:00 2001
From: nijtmans <nijtmans>
Date: Sun, 16 Aug 2009 12:25:06 +0000
Subject: Change ForIterData, make it const-safe.

---
 ChangeLog          | 2 ++
 generic/tclCmdAH.c | 4 ++--
 generic/tclInt.h   | 4 ++--
 3 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 85e9fbe..e93139b 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -4,6 +4,8 @@
 	* unix/tclUnixThrd.c:  Use <pthread.h> in stead of "pthread.h"
 	* win/tclWinDde.c:     Eliminate some more gcc warnings
 	* win/tclWinReg.c
+	* generic/tclInt.h     Change ForIterData, make it const-safe.
+	* generic/tclCmdAH.c
 
 2009-08-12  Don Porter  <dgp@users.sourceforge.net>
 
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;
 
-- 
cgit v0.12