Tcl Source Code

Check-in [42530a7e20]
Login

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

Overview
Comment:Repair Claim/Disclaim imbalance
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | core-8-5-branch
Files: files | file ages | folders
SHA1: 42530a7e20bce3c3ee675ddcdee91f1aaf709061
User & Date: dgp 2012-06-25 16:19:42
Context
2012-06-26
14:29
use cygwin_conv_path() in stead of deprecated cygwin_conv_to_full_posix_path check-in: 23aec1435f user: jan.nijtmans tags: core-8-5-branch
2012-06-25
16:42
3024359 Make sure that the per-thread cache of the list of file systems currently registered is only... check-in: a340fc1f8f user: dgp tags: trunk
16:19
Repair Claim/Disclaim imbalance check-in: 42530a7e20 user: dgp tags: core-8-5-branch
15:19
3024359 Make sure that the per-thread cache of the list of file systems currently registered is only... check-in: 575001f433 user: dgp tags: core-8-5-branch
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to generic/tclIOUtil.c.

4386
4387
4388
4389
4390
4391
4392

4393
4394
4395
4396
4397
4398
4399
     * accomplished by the FsGetFirstFilesystem() call.
     */

    fsRecPtr = FsGetFirstFilesystem();
    Claim();

    if (TclFSEnsureEpochOk(pathPtr, &retVal) != TCL_OK) {

	return NULL;
    }

    /*
     * Call each of the "pathInFilesystem" functions in succession. A
     * non-return value of -1 indicates the particular function has succeeded.
     */







>







4386
4387
4388
4389
4390
4391
4392
4393
4394
4395
4396
4397
4398
4399
4400
     * accomplished by the FsGetFirstFilesystem() call.
     */

    fsRecPtr = FsGetFirstFilesystem();
    Claim();

    if (TclFSEnsureEpochOk(pathPtr, &retVal) != TCL_OK) {
	Disclaim();
	return NULL;
    }

    /*
     * Call each of the "pathInFilesystem" functions in succession. A
     * non-return value of -1 indicates the particular function has succeeded.
     */