Differences From Artifact [9901847fc4]:

• File generic/tclThreadTest.c — part of check-in [a688bb7213] at 2024-05-27 21:04:39 on branch core-8-branch — Another round of sentinel improvements (user: jan.nijtmans size: 31412) [more...]

To Artifact [cc586d6ce4]:

• File generic/tclThreadTest.c — part of check-in [3af2efb00f] at 2024-08-15 20:23:54 on branch core-8-branch — Improve bunch of error-messages (user: jan.nijtmans size: 31413)

504
505
506
507
508
509
510
511
512
513
514
515
516
517
518

    joinable = joinable ? TCL_THREAD_JOINABLE : TCL_THREAD_NOFLAGS;

    Tcl_MutexLock(&threadMutex);
    if (Tcl_CreateThread(&id, NewTestThread, &ctrl,
	    TCL_THREAD_STACK_DEFAULT, joinable) != TCL_OK) {
	Tcl_MutexUnlock(&threadMutex);
	Tcl_AppendResult(interp, "can't create a new thread", (char *)NULL);
	return TCL_ERROR;
    }

    /*
     * Wait for the thread to start because it is using something on our stack!
     */

|

504
505
506
507
508
509
510
511
512
513
514
515
516
517
518

    joinable = joinable ? TCL_THREAD_JOINABLE : TCL_THREAD_NOFLAGS;

    Tcl_MutexLock(&threadMutex);
    if (Tcl_CreateThread(&id, NewTestThread, &ctrl,
	    TCL_THREAD_STACK_DEFAULT, joinable) != TCL_OK) {
	Tcl_MutexUnlock(&threadMutex);
	Tcl_AppendResult(interp, "cannot create a new thread", (char *)NULL);
	return TCL_ERROR;
    }

    /*
     * Wait for the thread to start because it is using something on our stack!
     */