Differences From Artifact [354a1c5565]:

• File generic/tclIOUtil.c — part of check-in [a5f7f2fc98] at 2024-12-02 14:05:05 on branch core-8-6-16-rc — Plug memory leak. (user: dgp size: 133136)

To Artifact [ca31c8a874]:

• File generic/tclIOUtil.c — part of check-in [e4feb601a8] at 2024-12-02 14:33:01 on branch core-8-6-16-rc — small amend, avoiding SF (purely hypothetical Tcl_FSGetCwd may return NULL) (user: sebres size: 133150) [more...]

468
469
470
471
472
473
474
475

476
477
478
479
480
481
482

468
469
470
471
472
473
474

475
476
477
478
479
480
481
482

-
+

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

    /* if not yet initialized - ensure we'll once obtain cwd */
    if (!tsdPtr->cwdPathEpoch) {
	Tcl_Obj *temp = Tcl_FSGetCwd(NULL);
	Tcl_DecrRefCount(temp);
	if (temp) { Tcl_DecrRefCount(temp); }
    }

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