diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-23 11:51:32 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2019-10-23 11:51:32 (GMT) |
| commit | 6b002a2d06574c33145c29bd823886ef719e2f7c (patch) | |
| tree | 1e89595be629dea72b7e6c24eb2b36ef6d193e56 | |
| parent | 9f1a598fc1e304a4b5413132c84c8a2c4139fe14 (diff) | |
| download | tcl-6b002a2d06574c33145c29bd823886ef719e2f7c.zip tcl-6b002a2d06574c33145c29bd823886ef719e2f7c.tar.gz tcl-6b002a2d06574c33145c29bd823886ef719e2f7c.tar.bz2 | |
Fix gcc warning, also introduced by [0f2870649c804dd8]
| -rw-r--r-- | unix/tclUnixFile.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/unix/tclUnixFile.c b/unix/tclUnixFile.c index 028175f..fec528e 100644 --- a/unix/tclUnixFile.c +++ b/unix/tclUnixFile.c @@ -267,9 +267,9 @@ TclpMatchInDirectory( Tcl_StatBuf statBuf; Tcl_DString ds; /* native encoding of dir */ Tcl_DString dsOrig; /* utf-8 encoding of dir */ + Tcl_Encoding encoding = Tcl_GetEncoding(interp ,NULL); Tcl_DStringInit(&dsOrig); - Tcl_Encoding encoding; dirName = TclGetString(fileNamePtr); dirLength = fileNamePtr->length; Tcl_DStringAppend(&dsOrig, dirName, dirLength); @@ -366,7 +366,6 @@ TclpMatchInDirectory( */ - encoding = Tcl_GetEncoding(interp ,NULL); utfname = Tcl_ExternalToUtfDString(encoding, entryPtr->d_name, -1, &utfDs); if (Tcl_StringCaseMatch(utfname, pattern, 0)) { |