summaryrefslogtreecommitdiffstats
path: root/generic/tclFileName.c
diff options
context:
space:
mode:
authornijtmans <nijtmans>2008-10-16 22:34:18 (GMT)
committernijtmans <nijtmans>2008-10-16 22:34:18 (GMT)
commit8b464633a0f2df93912ad25af65a5724cd643da2 (patch)
treec92c0492d1db21f9b0c7f880eec5c0cd3ce36762 /generic/tclFileName.c
parent2b0bd4b76e50ee9f511c827309e0078efc6f537a (diff)
downloadtcl-8b464633a0f2df93912ad25af65a5724cd643da2.zip
tcl-8b464633a0f2df93912ad25af65a5724cd643da2.tar.gz
tcl-8b464633a0f2df93912ad25af65a5724cd643da2.tar.bz2
Add "const" to many internal
const tables. No functional or API change.
Diffstat (limited to 'generic/tclFileName.c')
-rw-r--r--generic/tclFileName.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c
index 0c29459..cca1a9b 100644
--- a/generic/tclFileName.c
+++ b/generic/tclFileName.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: tclFileName.c,v 1.93 2008/09/29 16:03:30 dgp Exp $
+ * RCS: @(#) $Id: tclFileName.c,v 1.94 2008/10/16 22:34:19 nijtmans Exp $
*/
#include "tclInt.h"
@@ -1212,7 +1212,7 @@ Tcl_GlobObjCmd(
Tcl_Obj *typePtr, *resultPtr, *look;
Tcl_Obj *pathOrDir = NULL;
Tcl_DString prefix;
- static const char *options[] = {
+ static const char *const options[] = {
"-directory", "-join", "-nocomplain", "-path", "-tails",
"-types", "--", NULL
};
@@ -1897,7 +1897,7 @@ TclGlob(
*/
if (types == NULL) {
- /*
+ /*
* We just want to check for existence. In this case we make it
* easy on Tcl_FSMatchInDirectory and its sub-implementations by
* not bothering them (even though they should support this
@@ -1910,7 +1910,7 @@ TclGlob(
}
result = TCL_OK;
} else {
- /*
+ /*
* We want to check for the correct type. Tcl_FSMatchInDirectory
* is documented to do this for us, if we give it a NULL pattern.
*/
@@ -1960,7 +1960,7 @@ TclGlob(
if (pathPrefix == NULL) {
Tcl_Panic("Called TclGlob with TCL_GLOBMODE_TAILS and pathPrefix==NULL");
}
-
+
pre = Tcl_GetStringFromObj(pathPrefix, &prefixLen);
if (prefixLen > 0
&& (strchr(separators, pre[prefixLen-1]) == NULL)) {