summaryrefslogtreecommitdiffstats
path: root/generic/tclCmdAH.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-10-14 22:37:53 (GMT)
committernijtmans <nijtmans>2008-10-14 22:37:53 (GMT)
commit45c244cd8dcd109d144858140ce8c0c070c79f7e (patch)
tree600d17e3a8b14046378d7711a27fd9e79eb1ed86 /generic/tclCmdAH.c
parentea53c3ec3c87bc77531bc6965ab99a3a741e5789 (diff)
downloadtcl-45c244cd8dcd109d144858140ce8c0c070c79f7e.zip
tcl-45c244cd8dcd109d144858140ce8c0c070c79f7e.tar.gz
tcl-45c244cd8dcd109d144858140ce8c0c070c79f7e.tar.bz2
* generic/tclCmdAH.c: Fix minor compiler warnings when compiling
* generic/tclCmdMZ.c: with -Wwrite-strings * generic/tclIndexObj.c: * generic/tclProc.c: * generic/tclStubLib.c: * generic/tclUtil.c:
Diffstat (limited to 'generic/tclCmdAH.c')
-rw-r--r--generic/tclCmdAH.c14
1 files changed, 7 insertions, 7 deletions
diff --git a/generic/tclCmdAH.c b/generic/tclCmdAH.c
index 19a743b..342188e 100644
--- a/generic/tclCmdAH.c
+++ b/generic/tclCmdAH.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution of
* this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCmdAH.c,v 1.105 2008/09/24 19:31:28 dgp Exp $
+ * RCS: @(#) $Id: tclCmdAH.c,v 1.106 2008/10/14 22:37:53 nijtmans Exp $
*/
#include "tclInt.h"
@@ -51,7 +51,7 @@ static inline void ForeachCleanup(Tcl_Interp *interp,
struct ForeachState *statePtr);
static int GetStatBuf(Tcl_Interp *interp, Tcl_Obj *pathPtr,
Tcl_FSStatProc *statProc, Tcl_StatBuf *statPtr);
-static char * GetTypeFromMode(int mode);
+static const char *GetTypeFromMode(int mode);
static int StoreStatData(Tcl_Interp *interp, Tcl_Obj *varName,
Tcl_StatBuf *statPtr);
static Tcl_NRPostProc CatchObjCmdCallback;
@@ -487,7 +487,7 @@ Tcl_EncodingObjCmd(
{
int index;
- static const char *optionStrings[] = {
+ static const char *const optionStrings[] = {
"convertfrom", "convertto", "dirs", "names", "system",
NULL
};
@@ -884,7 +884,7 @@ Tcl_FileObjCmd(
* This list of constants should match the fileOption string array below.
*/
- static const char *fileOptions[] = {
+ static const char *const fileOptions[] = {
"atime", "attributes", "channels", "copy",
"delete",
"dirname", "executable", "exists", "extension",
@@ -1101,7 +1101,7 @@ Tcl_FileObjCmd(
* We have a '-linktype' argument.
*/
- static const char *linkTypes[] = {
+ static const char *const linkTypes[] = {
"-symbolic", "-hard", NULL
};
if (Tcl_GetIndexFromObj(interp, objv[2], linkTypes, "switch",
@@ -1346,7 +1346,7 @@ Tcl_FileObjCmd(
return TCL_ERROR;
}
if (objc == 2) {
- char *separator = NULL; /* lint */
+ const char *separator = NULL; /* lint */
switch (tclPlatform) {
case TCL_PLATFORM_UNIX:
@@ -1608,7 +1608,7 @@ StoreStatData(
*----------------------------------------------------------------------
*/
-static char *
+static const char *
GetTypeFromMode(
int mode)
{