diff options
Diffstat (limited to 'generic')
-rw-r--r-- | generic/tclCmdMZ.c | 6 | ||||
-rw-r--r-- | generic/tclParse.c | 2 |
2 files changed, 4 insertions, 4 deletions
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 |