summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--ChangeLog5
-rw-r--r--generic/tclCmdMZ.c6
-rw-r--r--generic/tclParse.c2
3 files changed, 9 insertions, 4 deletions
diff --git a/ChangeLog b/ChangeLog
index 106f6e7..a02c8ce 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,8 @@
+2009-12-25 Jan Nijtmans <nijtmans@users.sf.net>
+
+ * generic/tclCmdMZ.c: CONST -> const
+ * generic/tclParse.c
+
2009-12-23 Donal K. Fellows <dkf@users.sf.net>
* library/safe.tcl (AliasSource, AliasExeName): [Bug 2913625]: Stop
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c
index 28f4d77..7e42ec3 100644
--- a/generic/tclCmdMZ.c
+++ b/generic/tclCmdMZ.c
@@ -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: tclCmdMZ.c,v 1.197 2009/12/07 15:08:47 dkf Exp $
+ * RCS: @(#) $Id: tclCmdMZ.c,v 1.198 2009/12/25 22:45:05 nijtmans Exp $
*/
#include "tclInt.h"
@@ -4721,8 +4721,8 @@ TclListLines(
Tcl_Obj* const* elems) /* The list elems as Tcl_Obj*, in need of
* derived continuation data */
{
- CONST char* listStr = Tcl_GetString (listObj);
- CONST char* listHead = listStr;
+ const char* listStr = Tcl_GetString (listObj);
+ const char* listHead = listStr;
int i, length = strlen(listStr);
const char *element = NULL, *next = NULL;
ContLineLoc* clLocPtr = TclContinuationsGet(listObj);
diff --git a/generic/tclParse.c b/generic/tclParse.c
index b06b106..65d09c2 100644
--- a/generic/tclParse.c
+++ b/generic/tclParse.c
@@ -2099,7 +2099,7 @@ TclSubstTokens(
* left to be substituted will be written */
int line, /* The line the script starts on. */
int* clNextOuter, /* Information about an outer context for */
- CONST char* outerScript) /* continuation line data. This is set by
+ const char* outerScript) /* continuation line data. This is set by
* EvalEx() to properly handle [...]-nested
* commands. The 'outerScript' refers to the
* most-outer script containing the embedded