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 | e24d246c87b3d227a8fb4835bfeebad333d38b42 (patch) | |
| tree | b364c65de0a09b2125ba867a1ba14c257532d3d3 /generic/tclTest.c | |
| parent | 4cabc332b4292774ede435437957baf321e9afd2 (diff) | |
| download | tcl-e24d246c87b3d227a8fb4835bfeebad333d38b42.zip tcl-e24d246c87b3d227a8fb4835bfeebad333d38b42.tar.gz tcl-e24d246c87b3d227a8fb4835bfeebad333d38b42.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; |