diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-15 11:07:46 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2011-08-15 11:07:46 (GMT) |
| commit | 092dd70e63fd7c5fcc9526b06c1242322378d492 (patch) | |
| tree | 06c8f4cccd36e0b288f5a6f6334af32307f44b5e /win/tclWinChan.c | |
| parent | 17c90c83d4e0dda77c45f716df7eb3e37a7171da (diff) | |
| download | tcl-092dd70e63fd7c5fcc9526b06c1242322378d492.zip tcl-092dd70e63fd7c5fcc9526b06c1242322378d492.tar.gz tcl-092dd70e63fd7c5fcc9526b06c1242322378d492.tar.bz2 | |
[Bug 3388350] mingw64 compiler warnings
Diffstat (limited to 'win/tclWinChan.c')
| -rw-r--r-- | win/tclWinChan.c | 17 |
1 files changed, 8 insertions, 9 deletions
diff --git a/win/tclWinChan.c b/win/tclWinChan.c index 767fa94..67a12a0 100644 --- a/win/tclWinChan.c +++ b/win/tclWinChan.c @@ -475,8 +475,7 @@ FileSeekProc(instanceData, offset, mode, errorCodePtr) { FileInfo *infoPtr = (FileInfo *) instanceData; DWORD moveMethod; - DWORD newPos, newPosHigh; - DWORD oldPos, oldPosHigh; + LONG newPos, newPosHigh, oldPos, oldPosHigh; *errorCodePtr = 0; if (mode == SEEK_SET) { @@ -552,7 +551,7 @@ FileWideSeekProc(instanceData, offset, mode, errorCodePtr) { FileInfo *infoPtr = (FileInfo *) instanceData; DWORD moveMethod; - DWORD newPos, newPosHigh; + LONG newPos, newPosHigh; *errorCodePtr = 0; if (mode == SEEK_SET) { @@ -781,8 +780,8 @@ TclpOpenFileChannel(interp, pathPtr, mode, permissions) * it? */ { Tcl_Channel channel = 0; - int channelPermissions; - DWORD accessMode, createMode, shareMode, flags; + int channelPermissions = 0; + DWORD accessMode = 0, createMode, shareMode, flags; CONST TCHAR *nativeName; HANDLE handle; char channelName[16 + TCL_INTEGER_SPACE]; @@ -1160,10 +1159,10 @@ TclpGetDefaultStdChannel(type) { Tcl_Channel channel; HANDLE handle; - int mode; - char *bufMode; - DWORD handleId; /* Standard handle to retrieve. */ - + int mode = -1; + char *bufMode = NULL; + DWORD handleId = (DWORD)INVALID_HANDLE_VALUE; + /* Standard handle to retrieve. */ switch (type) { case TCL_STDIN: |