Tcl Source Code: Diff

Differences From Artifact [49e93e9d37]:

File unix/tclUnixThrd.c — part of check-in [ba7435e55c] at 2025-09-20 18:47:46 on branch 893f8cc5-tip509-nested-mutex-atomic — Re-implement tclUnixThrd.c, improve the locking. (Not done for Windows yet) (user: jan.nijtmans size: 25473)

File unix/tclUnixThrd.c — part of check-in [b2641712a1] at 2025-09-21 14:21:03 on branch 893f8cc5-tip509-nested-mutex-atomic — More progress in Windows implementation (doesn't work yet) (user: jan.nijtmans size: 25461)

︙
202 203 204 205 206 207 208 ~~209~~ 210 211 212 ~~213~~ 214 215 216 217 218 219 220	202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220	- + - +	#endif if (mutexthread == mythread) { // We owned the lock already, so it's recursive. pmutexPtr->counter++; } else { pthread_mutex_lock(&pmutexPtr->mutex); #ifdef HAVE_PTHREAD_SPIN_LOCK ~~pthread_spin_lock(&pmutexPtr->lock);~~ pthread_spin_lock(&pmutexPtr->lock); #endif pmutexPtr->thread = mythread; #ifdef HAVE_PTHREAD_SPIN_LOCK ~~pthread_spin_unlock(&pmutexPtr->lock);~~ pthread_spin_unlock(&pmutexPtr->lock); #endif } } static void PMutexUnlock( PMutex *pmutexPtr)
︙
234 235 236 237 238 239 240 ~~241~~ 242 243 244 ~~245~~ 246 247 248 249 250 251 252	234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252	- + - +	Tcl_Panic("mutex not owned"); } if (pmutexPtr->counter) { // It's recursive pmutexPtr->counter--; } else { #ifdef HAVE_PTHREAD_SPIN_LOCK ~~pthread_spin_lock(&pmutexPtr->lock);~~ pthread_spin_lock(&pmutexPtr->lock); #endif pmutexPtr->thread = 0; #ifdef HAVE_PTHREAD_SPIN_LOCK ~~pthread_spin_unlock(&pmutexPtr->lock);~~ pthread_spin_unlock(&pmutexPtr->lock); #endif pthread_mutex_unlock(&pmutexPtr->mutex); } } static void PCondWait(
︙