summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authornijtmans <nijtmans>2009-08-16 12:25:06 (GMT)
committernijtmans <nijtmans>2009-08-16 12:25:06 (GMT)
commit7224aab4417a253cc7246233a59a1a0e368ce191 (patch)
treed272c48e1074c07f1288cbee9a4e169a53707e45
parent03f782be0e25217842dcc317a1055d15054f2ca6 (diff)
downloadtcl-7224aab4417a253cc7246233a59a1a0e368ce191.zip
tcl-7224aab4417a253cc7246233a59a1a0e368ce191.tar.gz
tcl-7224aab4417a253cc7246233a59a1a0e368ce191.tar.bz2
Change ForIterData, make it const-safe.
-rw-r--r--ChangeLog2
-rw-r--r--generic/tclCmdAH.c4
-rw-r--r--generic/tclInt.h4
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;