diff options
| author | nijtmans <nijtmans> | 2011-01-25 22:33:56 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2011-01-25 22:33:56 (GMT) |
| commit | b2a0e43c20f9760344b1df76388fb910a4849f3d (patch) | |
| tree | 150b7e7d28f9c6fd1f44e197c65ffe5c4908eec8 /win/tclWinChan.c | |
| parent | 75f084f6970d2344bb5a82fdff6a73825bc6e64e (diff) | |
| download | tcl-b2a0e43c20f9760344b1df76388fb910a4849f3d.zip tcl-b2a0e43c20f9760344b1df76388fb910a4849f3d.tar.gz tcl-b2a0e43c20f9760344b1df76388fb910a4849f3d.tar.bz2 | |
Fix various gcc-4.5.2 64-bit warning messages,
e.g. by using full 64-bits for socket fd's
Diffstat (limited to 'win/tclWinChan.c')
| -rw-r--r-- | win/tclWinChan.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win/tclWinChan.c b/win/tclWinChan.c index 0b030dd..442b5ad 100644 --- a/win/tclWinChan.c +++ b/win/tclWinChan.c @@ -9,7 +9,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinChan.c,v 1.60 2010/11/19 20:47:09 nijtmans Exp $ + * RCS: @(#) $Id: tclWinChan.c,v 1.61 2011/01/25 22:33:56 nijtmans Exp $ */ #include "tclWinInt.h" @@ -1225,7 +1225,7 @@ TclpGetDefaultStdChannel( HANDLE handle; int mode = -1; const char *bufMode = NULL; - DWORD handleId = (DWORD)INVALID_HANDLE_VALUE; + DWORD handleId = (DWORD) -1; /* Standard handle to retrieve. */ switch (type) { @@ -1338,7 +1338,7 @@ TclWinOpenFileChannel( infoPtr->flags = appendMode; infoPtr->handle = handle; infoPtr->dirty = 0; - wsprintfA(channelName, "file%lx", (int) infoPtr); + sprintf(channelName, "file%Ix", (size_t) infoPtr); infoPtr->channel = Tcl_CreateChannel(&fileChannelType, channelName, infoPtr, permissions); |