diff options
author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-10-01 11:04:19 (GMT) |
---|---|---|
committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2015-10-01 11:04:19 (GMT) |
commit | 03a3a2d78e1c26683170d32685d3f4d3b9ed902d (patch) | |
tree | b364c65de0a09b2125ba867a1ba14c257532d3d3 /generic/tclCmdMZ.c | |
parent | 48e066711f2f019314605b45c4b136118d9c1b45 (diff) | |
download | tcl-03a3a2d78e1c26683170d32685d3f4d3b9ed902d.zip tcl-03a3a2d78e1c26683170d32685d3f4d3b9ed902d.tar.gz tcl-03a3a2d78e1c26683170d32685d3f4d3b9ed902d.tar.bz2 |
Eliminate a few gcc compiler warnings, when using -Wwrite-strings (tested with the brand-new gcc 5.2.0)
Diffstat (limited to 'generic/tclCmdMZ.c')
-rw-r--r-- | generic/tclCmdMZ.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclCmdMZ.c b/generic/tclCmdMZ.c index 70943e9..30586b1 100644 --- a/generic/tclCmdMZ.c +++ b/generic/tclCmdMZ.c @@ -991,7 +991,8 @@ Tcl_SplitObjCmd( { Tcl_UniChar ch; int len; - char *splitChars, *stringPtr, *end; + const char *splitChars; + char *stringPtr, *end; int splitCharLen, stringLen; Tcl_Obj *listPtr, *objPtr; @@ -1069,7 +1070,8 @@ Tcl_SplitObjCmd( TclNewStringObj(objPtr, stringPtr, end - stringPtr); Tcl_ListObjAppendElement(NULL, listPtr, objPtr); } else { - char *element, *p, *splitEnd; + char *element; + const char *p, *splitEnd; int splitLen; Tcl_UniChar splitChar; |