Differences From Artifact [6aefb62231]:

• File win/tclWinThrd.c — part of check-in [91a1cd34e3] at 2025-09-25 14:00:30 on branch main — merge 9.0 (amend to [893f8cc5db3ba8bd] with allocMutex) (user: sebres size: 27562) [more...]

To Artifact [021b3bc20c]:

• File win/tclWinThrd.c — part of check-in [e360c5a082] at 2025-09-25 14:03:28 on branch main — merge 9.0 (user: sebres size: 27562) [more...]

1001
1002
1003
1004
1005
1006
1007
1008
1009
1010
1011

1012
1013
1014
1015
1016
1017
1018

Tcl_Mutex *
TclpNewAllocMutex(void)
{
    allocMutex *lockPtr;

    lockPtr = (allocMutex *)malloc(sizeof(allocMutex));
    lockPtr->tlock = (Tcl_Mutex)&lockPtr->wm;
    if (lockPtr == NULL) {
	Tcl_Panic("could not allocate lock");
    }

    WMutexInit(&lockPtr->wm);
    return &lockPtr->tlock;
}

void
TclpFreeAllocMutex(
    Tcl_Mutex *mutex)		/* The alloc mutex to free. */

<



>

1001
1002
1003
1004
1005
1006
1007

1008
1009
1010
1011
1012
1013
1014
1015
1016
1017
1018

Tcl_Mutex *
TclpNewAllocMutex(void)
{
    allocMutex *lockPtr;

    lockPtr = (allocMutex *)malloc(sizeof(allocMutex));

    if (lockPtr == NULL) {
	Tcl_Panic("could not allocate lock");
    }
    lockPtr->tlock = (Tcl_Mutex)&lockPtr->wm;
    WMutexInit(&lockPtr->wm);
    return &lockPtr->tlock;
}

void
TclpFreeAllocMutex(
    Tcl_Mutex *mutex)		/* The alloc mutex to free. */