Differences From Artifact [ccee6d283b]:

• File generic/tclIOUtil.c — part of check-in [a67e5b615e] at 2017-11-13 10:49:25 on branch core-8-5-branch — No longer mark Tcl_EvalFile() as obsolete, since it will continue to be supported in Tcl 9.0 (user: jan.nijtmans size: 141403) [more...]

To Artifact [c2c2a3ab0a]:

• File generic/tclIOUtil.c — part of check-in [188107cdc4] at 2018-06-15 15:39:38 on branch bug-3e25ac512e — minimalist fix for [3e25ac512e] to avoid different values before and after current directory access (initialize on demand). (user: sebres size: 141669)

529
530
531
532
533
534
535
536






537
538

539
540
541
542
543
544
545

int
TclFSCwdIsNative(void)
{
    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&fsDataKey);

    if (tsdPtr->cwdClientData != NULL) {
	return 1;
    } else {






	return 0;
    }

}

/*
 *----------------------------------------------------------------------
 *
 * TclFSCwdPointerEquals --
 *

|
>
>
>
>
>
>
|

>

529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552

int
TclFSCwdIsNative(void)
{
    ThreadSpecificData *tsdPtr = TCL_TSD_INIT(&fsDataKey);

    if (tsdPtr->cwdClientData != NULL) {
	return 1;
    } else if (TclFSCwdPointerEquals(NULL)) {
	/* we've still never been called, so initialize it here and try again */
	Tcl_Obj *objPtr = Tcl_FSGetCwd(NULL);
	if (objPtr) {
	    Tcl_DecrRefCount(objPtr);
	}
	/* check again */
	return (tsdPtr->cwdClientData != NULL) ? 1 : 0;
    }
    return 0;
}

/*
 *----------------------------------------------------------------------
 *
 * TclFSCwdPointerEquals --
 *