From 1668f8980a9b270a5f1fa1d58069b7e26dc12389 Mon Sep 17 00:00:00 2001
From: Joe Mistachkin <joe@mistachkin.com>
Date: Sun, 17 May 2015 23:45:53 +0000
Subject: Temporary tweaks to allow Thread package tests to pass on Unix.

---
 unix/tclUnixThrd.c | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

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
     }
 }
 
-- 
cgit v0.12