Differences From Artifact [b3ea5933fb]:

• File generic/tclThreadTest.c — part of check-in [a421b7549a] at 2018-06-26 17:07:02 on branch core-8-branch — merge 8.6 (user: dgp size: 31432) [more...]

To Artifact [b4b90cdc18]:

• File generic/tclThreadTest.c — part of check-in [47886611e7] at 2018-11-15 19:13:55 on branch core-8-branch — Add entry for Tcl_StaticPackage in internal stub table, since the public one is deprecated and will be removed in 9.0 Clean-up a lot of type-casts, which are not necessary any more. (user: jan.nijtmans size: 31419) [more...]

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

    ctrl.script = script;
    ctrl.condWait = NULL;
    ctrl.flags = 0;

    joinable = joinable ? TCL_THREAD_JOINABLE : TCL_THREAD_NOFLAGS;

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

    /*

|

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

    ctrl.script = script;
    ctrl.condWait = NULL;
    ctrl.flags = 0;

    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", NULL);
	return TCL_ERROR;
    }

    /*