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/tclTest.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/tclTest.c')
-rw-r--r-- | generic/tclTest.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclTest.c b/generic/tclTest.c index 5b51baa..1d92ff5 100644 --- a/generic/tclTest.c +++ b/generic/tclTest.c @@ -909,7 +909,7 @@ TestasyncCmd( static int AsyncHandlerProc( - ClientData clientData, /* If of TestAsyncHandler structure. + ClientData clientData, /* If of TestAsyncHandler structure. * in global list. */ Tcl_Interp *interp, /* Interpreter in which command was * executed, or NULL. */ @@ -3606,7 +3606,7 @@ PrintParse( Tcl_Parse *parsePtr) /* Parse structure to print out. */ { Tcl_Obj *objPtr; - char *typeString; + const char *typeString; Tcl_Token *tokenPtr; int i; @@ -6518,7 +6518,7 @@ TestGetIndexFromObjStructObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { - char *ary[] = { + const char *ary[] = { "a", "b", "c", "d", "e", "f", NULL, NULL }; int idx,target; |