diff options
| author | dgp <dgp@users.sourceforge.net> | 2013-01-24 18:47:18 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2013-01-24 18:47:18 (GMT) |
| commit | 94605ca2706bce3bfe127eb4168ca135fd02b609 (patch) | |
| tree | 6cddb484bb177aee799a61c6c32efe39006e69b9 /generic/tclFileName.c | |
| parent | c58c25ef079a96e684e2be9bdf78040c84c3cf9b (diff) | |
| download | tcl-94605ca2706bce3bfe127eb4168ca135fd02b609.zip tcl-94605ca2706bce3bfe127eb4168ca135fd02b609.tar.gz tcl-94605ca2706bce3bfe127eb4168ca135fd02b609.tar.bz2 | |
Silence some compiler warnings.
Diffstat (limited to 'generic/tclFileName.c')
| -rw-r--r-- | generic/tclFileName.c | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/generic/tclFileName.c b/generic/tclFileName.c index 046eaef..bcaadd4 100644 --- a/generic/tclFileName.c +++ b/generic/tclFileName.c @@ -1784,13 +1784,17 @@ TclDoGlob(interp, separators, headPtr, tail, types) int baseLength, quoted, count; int result = TCL_OK; char *name, *p, *openBrace, *closeBrace, *firstSpecialChar, savedChar; + /* char lastChar = 0; + */ int length = Tcl_DStringLength(headPtr); + /* if (length > 0) { lastChar = Tcl_DStringValue(headPtr)[length-1]; } + */ /* * Consume any leading directory separators, leaving tail pointing |