diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-10 08:55:50 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-10 08:55:50 (GMT) |
| commit | e9a8f8e9d88282efed5f92674150d8eed85959c4 (patch) | |
| tree | b36f6319f00a6193851783c1b722f37c0e1fffe0 /generic/tclFileName.c | |
| parent | af67150caeea40a704056ad8aaa8e793d5fce3ac (diff) | |
| parent | 4626fe265c1403e3568ae8c3d77bb87a88cc4b25 (diff) | |
| download | tcl-e9a8f8e9d88282efed5f92674150d8eed85959c4.zip tcl-e9a8f8e9d88282efed5f92674150d8eed85959c4.tar.gz tcl-e9a8f8e9d88282efed5f92674150d8eed85959c4.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 92d325f..7f4f1cc 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -2145,7 +2145,7 @@ DoGlob( Tcl_GlobTypeData *types) /* List object containing list of acceptable * types. May be NULL. */ { - int baseLength, quoted, count; + int baseLength, quoted; int result = TCL_OK; char *name, *p, *openBrace, *closeBrace, *firstSpecialChar; Tcl_Obj *joinedPtr; @@ -2155,7 +2155,6 @@ DoGlob( * past the last initial separator. */ - count = 0; name = pattern; for (; *pattern != '\0'; pattern++) { if (*pattern == '\\') { @@ -2175,7 +2174,6 @@ DoGlob( } else if (strchr(separators, *pattern) == NULL) { break; } - count++; } /* |