diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-01 13:36:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-04-01 13:36:46 (GMT) |
| commit | bbfcd52f865c1fe426d2a3b54b3d79ed39606af1 (patch) | |
| tree | cfc02cf61fc3528110aeb751f04ef536ebcdc4e6 /generic/tclFileName.c | |
| parent | d0fec7532c33f0b3da8057e2e0fda10524f22905 (diff) | |
| parent | 6dc1f8021ed597b13289a02c41c2e9660525a81a (diff) | |
| download | tcl-bbfcd52f865c1fe426d2a3b54b3d79ed39606af1.zip tcl-bbfcd52f865c1fe426d2a3b54b3d79ed39606af1.tar.gz tcl-bbfcd52f865c1fe426d2a3b54b3d79ed39606af1.tar.bz2 | |
Rebase to Tcl 9.0
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 67c0048..7980878 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1230,7 +1230,7 @@ Tcl_GlobObjCmd( int objc, /* Number of arguments. */ Tcl_Obj *const objv[]) /* Argument objects. */ { - int index, i, globFlags, length, join, dir, result; + int i, globFlags, length, join, dir, result; char *string; const char *separators; Tcl_Obj *typePtr, *look; @@ -1243,7 +1243,7 @@ Tcl_GlobObjCmd( enum globOptionsEnum { GLOB_DIR, GLOB_JOIN, GLOB_NOCOMPLAIN, GLOB_PATH, GLOB_TAILS, GLOB_TYPE, GLOB_LAST - }; + } index; enum pathDirOptions {PATH_NONE = -1 , PATH_GENERAL = 0, PATH_DIR = 1}; Tcl_GlobTypeData *globTypes = NULL; @@ -1273,7 +1273,7 @@ Tcl_GlobObjCmd( } } - switch ((enum globOptionsEnum) index) { + switch (index) { case GLOB_NOCOMPLAIN: /* -nocomplain */ globFlags |= TCL_GLOBMODE_NO_COMPLAIN; break; |