diff options
| -rw-r--r-- | ChangeLog | 5 | ||||
| -rw-r--r-- | generic/tclCmdMZ.c | 6 | ||||
| -rw-r--r-- | generic/tclParse.c | 2 |
3 files changed, 9 insertions, 4 deletions
@@ -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 |