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/tclWinFile.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/tclWinFile.c')
| -rw-r--r-- | win/tclWinFile.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/win/tclWinFile.c b/win/tclWinFile.c index 0e3b33f..93c79eb 100644 --- a/win/tclWinFile.c +++ b/win/tclWinFile.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclWinFile.c,v 1.120 2011/01/12 07:32:02 nijtmans Exp $ + * RCS: @(#) $Id: tclWinFile.c,v 1.121 2011/01/25 22:33:56 nijtmans Exp $ */ #include "tclWinInt.h" @@ -985,7 +985,7 @@ TclpMatchInDirectory( } attr = GetFileAttributes(native); - if ((attr == INVALID_FILE_ATTRIBUTES) + if ((attr == INVALID_FILE_ATTRIBUTES) || ((attr & FILE_ATTRIBUTE_DIRECTORY) == 0)) { return TCL_OK; } @@ -2054,7 +2054,7 @@ NativeStat( /* * We might have just been denied access */ - + WIN32_FIND_DATA ffd; HANDLE hFind; hFind = FindFirstFile(nativePath, &ffd); |