diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-14 07:24:45 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-08-14 07:24:45 (GMT) |
| commit | 7af457dea44f550e6403d08f33aef3c98362faa0 (patch) | |
| tree | 7d98f24bc0e1f58d9bf18be980e4d1cbc157947e /generic/tclCompCmds.c | |
| parent | 22b9635e31221bf135976389bf5bc0f77d6df2a5 (diff) | |
| parent | 63e563793430f4db47010fcd839cf833a6364285 (diff) | |
| download | tcl-7af457dea44f550e6403d08f33aef3c98362faa0.zip tcl-7af457dea44f550e6403d08f33aef3c98362faa0.tar.gz tcl-7af457dea44f550e6403d08f33aef3c98362faa0.tar.bz2 | |
Merge 8.7
Diffstat (limited to 'generic/tclCompCmds.c')
| -rw-r--r-- | generic/tclCompCmds.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tclCompCmds.c b/generic/tclCompCmds.c index f4f2ddf..8c6050d 100644 --- a/generic/tclCompCmds.c +++ b/generic/tclCompCmds.c @@ -3174,7 +3174,7 @@ TclCompileFormatCmd( DefineLineInformation; /* TIP #280 */ Tcl_Token *tokenPtr = parsePtr->tokenPtr; Tcl_Obj **objv, *formatObj, *tmpObj; - char *bytes, *start; + const char *bytes, *start; int i, j, len; /* @@ -3301,7 +3301,7 @@ TclCompileFormatCmd( if (*++bytes == '%') { Tcl_AppendToObj(tmpObj, "%", 1); } else { - char *b = TclGetStringFromObj(tmpObj, &len); + const char *b = TclGetStringFromObj(tmpObj, &len); /* * If there is a non-empty literal from the format string, |