Tcl Source Code: Artifact [fc042e0af2]

Artifact fc042e0af29a321929aaf412f25289f6aca8516d:

Attachment "None" to ticket [403001ffff] added by nobody 2000-12-22 16:42:10.

diff  tclWinFile.c   tclWinFile.c.orig

798d797
< #if OLD_API
801,803d799
< #else
<     WIN32_FILE_ATTRIBUTE_DATA data;
< #endif
815,816d810
<
< #if OLD_API
847,854d840
< #else
<     nativePath = Tcl_WinUtfToTChar(path, -1, &ds);
<     if(GetFileAttributesExW((unsigned short *)nativePath,
<                           GetFileExInfoStandard,&data) != TRUE) {
<       Tcl_SetErrno(ENOENT);
<       return -1;
<     }
< #endif
901d886
< #if OLD_API
903,905d887
< #else
<     attr = data.dwFileAttributes;
< #endif
933d914
< #if OLD_API
938,943d918
< #else
<     statPtr->st_size  = data.nFileSizeLow;
<     statPtr->st_atime = ToCTime(data.ftLastAccessTime);
<     statPtr->st_mtime = ToCTime(data.ftLastWriteTime);
<     statPtr->st_ctime = ToCTime(data.ftCreationTime);
< #endif