diff options
| author | nijtmans <nijtmans@noemail.net> | 2008-10-14 22:37:53 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans@noemail.net> | 2008-10-14 22:37:53 (GMT) |
| commit | 43760e0cbecf200745df5b04ae8a6e73f8e94d6f (patch) | |
| tree | 600d17e3a8b14046378d7711a27fd9e79eb1ed86 /generic/tclCmdAH.c | |
| parent | 85363fb73ff6d23456c0c057037d8138410cd305 (diff) | |
| download | tcl-43760e0cbecf200745df5b04ae8a6e73f8e94d6f.zip tcl-43760e0cbecf200745df5b04ae8a6e73f8e94d6f.tar.gz tcl-43760e0cbecf200745df5b04ae8a6e73f8e94d6f.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:
FossilOrigin-Name: 675e88f6494cc9ecd7a2b3c7560a836f3c38dc5b
Diffstat (limited to 'generic/tclCmdAH.c')
| -rw-r--r-- | generic/tclCmdAH.c | 14 |
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) { |