Tcl Source Code: Check-in [6aaa943228]

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview

Comment:	merge 8.5
Downloads:	Tarball \| ZIP archive \| SQL archive
Timelines:	family \| ancestors \| descendants \| both \| core-8-6-branch
Files:	files \| file ages \| folders
SHA3-256:	6aaa943228193aaab3811711319a9fc1bbda2fa04ebed321c70fa90dedbfc874
User & Date:	sebres 2018-07-12 14:25:09

Context

2018-07-16
13:59		win: fixed test-cases (see [525ccacaef]) running under windows outside of temp-folder check-in: d61a95dfb6 user: sebres tags: core-8-6-branch
2018-07-12
15:31		merge 8.6 check-in: 6815b8fad2 user: sebres tags: core-8-branch
14:25		merge 8.5 check-in: 6aaa943228 user: sebres tags: core-8-6-branch
14:17		win: closes [3f7af0e21e13f1f5] - avoid "permissions denied" by `file delete`, if file stat (TclpObjS... check-in: 4af9ff473e user: sebres tags: core-8-5-branch
2018-07-09
18:15		merge 8.5 check-in: ad71fa8ca4 user: sebres tags: core-8-6-branch

Changes

Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to win/tclWinFile.c.

     * in wish by default). However the subsequent GetFileInformationByHandle
     * will fail. We do a WinIsReserved to see if it is one of the special
     * names, and if successful, mock up a BY_HANDLE_FILE_INFORMATION
     * structure.
     */

    fileHandle = CreateFile(nativePath, GENERIC_READ,
	    FILE_SHARE_READ | FILE_SHARE_WRITE, NULL, OPEN_EXISTING,

	    FILE_FLAG_BACKUP_SEMANTICS | FILE_FLAG_OPEN_REPARSE_POINT, NULL);

    if (fileHandle != INVALID_HANDLE_VALUE) {
	BY_HANDLE_FILE_INFORMATION data;

	if (GetFileInformationByHandle(fileHandle,&data) != TRUE) {
            fileType = GetFileType(fileHandle);

|
>

     * in wish by default). However the subsequent GetFileInformationByHandle
     * will fail. We do a WinIsReserved to see if it is one of the special
     * names, and if successful, mock up a BY_HANDLE_FILE_INFORMATION
     * structure.
     */

    fileHandle = CreateFile(nativePath, GENERIC_READ,
	    FILE_SHARE_READ | FILE_SHARE_WRITE | FILE_SHARE_DELETE, 
	    NULL, OPEN_EXISTING,
	    FILE_FLAG_BACKUP_SEMANTICS | FILE_FLAG_OPEN_REPARSE_POINT, NULL);

    if (fileHandle != INVALID_HANDLE_VALUE) {
	BY_HANDLE_FILE_INFORMATION data;

	if (GetFileInformationByHandle(fileHandle,&data) != TRUE) {
            fileType = GetFileType(fileHandle);