Tcl Source Code

Check-in [440efbd556]
Login

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

Overview
Comment:Fix for [bcd100410465], stale cached file FsPath object
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-6-branch
Files: files | file ages | folders
SHA3-256: 440efbd556ce70417748f78fe038580baf8612e43fbecd70c19405860c3f0be9
User & Date: pooryorick 2019-10-26 14:14:24
References
2019-10-26
15:42 Ticket [bcd1004104] A change to the system encoding, a stale cached file FsPath object, and an incorrect result status still Open with 3 other changes artifact: f94e3082a9 user: pooryorick
Context
2019-10-26
15:43
Test for issue [bcd1004104651], and new routine, ::tcltests::tempdir. check-in: edb36812e0 user: pooryorick tags: core-8-6-branch
14:14
Fix for [bcd100410465], stale cached file FsPath object check-in: 440efbd556 user: pooryorick tags: core-8-6-branch
2019-10-25
16:09
Put #define's in alphabetical order. Use MP_DIGIT_BIT in stead of (deprecated) DIGIT_BIT everywhere... check-in: b0e2ccc696 user: jan.nijtmans tags: core-8-6-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclPathObj.c.

2144
2145
2146
2147
2148
2149
2150

2151
2152
2153
2154
2155
2156
2157
	if (proc == NULL) {
	    return NULL;
	}

	nativePathPtr = proc(pathPtr);
	srcFsPathPtr = PATHOBJ(pathPtr);
	srcFsPathPtr->nativePathPtr = nativePathPtr;

    }

    return srcFsPathPtr->nativePathPtr;
}

/*
 *---------------------------------------------------------------------------







>







2144
2145
2146
2147
2148
2149
2150
2151
2152
2153
2154
2155
2156
2157
2158
	if (proc == NULL) {
	    return NULL;
	}

	nativePathPtr = proc(pathPtr);
	srcFsPathPtr = PATHOBJ(pathPtr);
	srcFsPathPtr->nativePathPtr = nativePathPtr;
	srcFsPathPtr->filesystemEpoch = TclFSEpoch();
    }

    return srcFsPathPtr->nativePathPtr;
}

/*
 *---------------------------------------------------------------------------