526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
|
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
|
-
+
|
* is used; however, the Thread package tests hang at
* various places when Tcl_Sleep() is used, typically
* while running test "thread-17.8", "thread-17.9", or
* "thread-17.11a". Really, what we want here is just
* to yield to other threads for a while.
*/
#ifdef HAVE_USLEEP
usleep(TCL_MUTEX_LOCK_SLEEP_TIME);
usleep(TCL_MUTEX_LOCK_SLEEP_TIME * 1000);
#else
Tcl_Sleep(TCL_MUTEX_LOCK_SLEEP_TIME);
#endif
}
}
/*
|