summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--unix/tclUnixThrd.c6
1 files changed, 5 insertions, 1 deletions
diff --git a/unix/tclUnixThrd.c b/unix/tclUnixThrd.c
index 11df5ee..dc60dc4 100644
--- a/unix/tclUnixThrd.c
+++ b/unix/tclUnixThrd.c
@@ -31,7 +31,7 @@ static Tcl_ThreadDataKey dataKey;
*/
#ifndef TCL_MUTEX_LOCK_SLEEP_TIME
-# define TCL_MUTEX_LOCK_SLEEP_TIME (0)
+# define TCL_MUTEX_LOCK_SLEEP_TIME (50)
#endif
/*
@@ -529,7 +529,11 @@ retry:
* "thread-17.11a". Really, what we want here is just
* to yield to other threads for a while.
*/
+#if 1
+ usleep(TCL_MUTEX_LOCK_SLEEP_TIME);
+#else
Tcl_Sleep(TCL_MUTEX_LOCK_SLEEP_TIME);
+#endif
}
}