diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-28 10:13:51 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-09-28 10:13:51 (GMT) |
| commit | f6bf85fb67eb15e637ecf7c7de4f661dc0557b43 (patch) | |
| tree | 60462ca1b3918744f06fa3526fb19a09b1b6507b /win/tclWinFile.c | |
| parent | 866a79313bc49a69a821448e49bc9a67c97393bb (diff) | |
| download | tcl-f6bf85fb67eb15e637ecf7c7de4f661dc0557b43.zip tcl-f6bf85fb67eb15e637ecf7c7de4f661dc0557b43.tar.gz tcl-f6bf85fb67eb15e637ecf7c7de4f661dc0557b43.tar.bz2 | |
Make Tcl compile warning-free using -Wshadow
Diffstat (limited to 'win/tclWinFile.c')
| -rw-r--r-- | win/tclWinFile.c | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index 752aa0c..6cfeae1 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -1091,7 +1091,6 @@ TclpMatchInDirectory( do { const char *utfname; int checkDrive = 0, isDrive; - DWORD attr; native = data.cFileName; attr = data.dwFileAttributes; @@ -1441,7 +1440,6 @@ TclpGetUserHome( int rc = 0; const char *domain; WCHAR *wName, *wHomeDir, *wDomain; - WCHAR buf[MAX_PATH]; Tcl_DStringInit(bufferPtr); @@ -1505,6 +1503,7 @@ TclpGetUserHome( size = lstrlenW(wHomeDir); Tcl_WinTCharToUtf((TCHAR *)wHomeDir, size*sizeof(WCHAR), bufferPtr); } else { + WCHAR buf[MAX_PATH]; /* * User exists but has no home dir. Return * "{GetProfilesDirectory}/<user>". @@ -2801,7 +2800,6 @@ TclpObjNormalizePath( */ int len; - char *path; Tcl_Obj *tmpPathPtr; tmpPathPtr = Tcl_NewStringObj(Tcl_DStringValue(&ds), |