Differences From Artifact [0ead658a9c]:

• File generic/tclThreadTest.c — part of check-in [00754b1cd0] at 2025-09-26 20:58:44 on branch tip-626 — Rebase to trunk (user: jan.nijtmans size: 31580) [more...]

To Artifact [84f50f4067]:

• File generic/tclThreadTest.c — part of check-in [c4f087760d] at 2025-11-23 20:43:58 on branch tip-626 — Use _Generic() to select function type (user: jan.nijtmans size: 31579) [more...]

173
174
175
176
177
178
179
180
181
182
183
184
185
186
187

    Tcl_MutexLock(&threadMutex);
    if (mainThreadId == 0) {
	mainThreadId = Tcl_GetCurrentThread();
    }
    Tcl_MutexUnlock(&threadMutex);

    Tcl_CreateObjCommand2(interp, "testthread", ThreadObjCmd, NULL, NULL);
    return TCL_OK;
}

/*
 *----------------------------------------------------------------------
 *
 * ThreadObjCmd --

|

173
174
175
176
177
178
179
180
181
182
183
184
185
186
187

    Tcl_MutexLock(&threadMutex);
    if (mainThreadId == 0) {
	mainThreadId = Tcl_GetCurrentThread();
    }
    Tcl_MutexUnlock(&threadMutex);

    Tcl_CreateObjCommand(interp, "testthread", ThreadObjCmd, NULL, NULL);
    return TCL_OK;
}

/*
 *----------------------------------------------------------------------
 *
 * ThreadObjCmd --