diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-10 09:07:55 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-11-10 09:07:55 (GMT) |
| commit | 3618a567209dcf5cc3492b801259f577bac5675c (patch) | |
| tree | a8223c49f7f62ca1b971d8a7b42619059a7834b4 /generic/tclFileName.c | |
| parent | 62002109e611a09114616c10d6723d1946f2321b (diff) | |
| parent | e9a8f8e9d88282efed5f92674150d8eed85959c4 (diff) | |
| download | tcl-3618a567209dcf5cc3492b801259f577bac5675c.zip tcl-3618a567209dcf5cc3492b801259f577bac5675c.tar.gz tcl-3618a567209dcf5cc3492b801259f577bac5675c.tar.bz2 | |
Merge 8.7
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 df9c5fa..b7ac0fa 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1966,7 +1966,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; @@ -1976,7 +1976,6 @@ DoGlob( * past the last initial separator. */ - count = 0; name = pattern; for (; *pattern != '\0'; pattern++) { if (*pattern == '\\') { @@ -1996,7 +1995,6 @@ DoGlob( } else if (strchr(separators, *pattern) == NULL) { break; } - count++; } /* |