diff options
| author | vincentdarley <vincentdarley> | 2003-01-09 10:01:51 (GMT) |
|---|---|---|
| committer | vincentdarley <vincentdarley> | 2003-01-09 10:01:51 (GMT) |
| commit | f98b2e353536358f9a36a52cb3a593b6958b9666 (patch) | |
| tree | a8240a20454ae3f08ae37add062461992d804043 /generic/tclFileName.c | |
| parent | 9de57791124f842576fb1dfc3a80926dc14cb981 (diff) | |
| download | tcl-f98b2e353536358f9a36a52cb3a593b6958b9666.zip tcl-f98b2e353536358f9a36a52cb3a593b6958b9666.tar.gz tcl-f98b2e353536358f9a36a52cb3a593b6958b9666.tar.bz2 | |
remove unused variable
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 5 |
1 files changed, 1 insertions, 4 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index fc0dbcd..16bf9d0 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.39 2002/11/13 22:11:40 vincentdarley Exp $ + * RCS: @(#) $Id: tclFileName.c,v 1.40 2003/01/09 10:01:59 vincentdarley Exp $ */ #include "tclInt.h" @@ -2597,15 +2597,12 @@ TclDoGlob(interp, separators, headPtr, tail, types) */ Tcl_Obj *nameObj; - /* Used to deal with one special case pertinent to MacOS */ - int macSpecialCase = 0; switch (tclPlatform) { case TCL_PLATFORM_MAC: { if (strchr(Tcl_DStringValue(headPtr), ':') == NULL) { Tcl_DStringAppend(headPtr, ":", 1); } - macSpecialCase = 1; break; } case TCL_PLATFORM_WINDOWS: { |