diff options
| author | Joe Mistachkin <joe@mistachkin.com> | 2015-05-17 23:45:53 (GMT) |
|---|---|---|
| committer | Joe Mistachkin <joe@mistachkin.com> | 2015-05-17 23:45:53 (GMT) |
| commit | 282b159f3b358fdbf7f1be07ac0e2b8580958b6a (patch) | |
| tree | 3ce63999aa9439ee1c6f6b2cfe6429a35ac39188 /unix/tclUnixThrd.c | |
| parent | e403d82b1862bccc59fd6cb13a362c7cdbcc6722 (diff) | |
| download | tcl-282b159f3b358fdbf7f1be07ac0e2b8580958b6a.zip tcl-282b159f3b358fdbf7f1be07ac0e2b8580958b6a.tar.gz tcl-282b159f3b358fdbf7f1be07ac0e2b8580958b6a.tar.bz2 | |
Temporary tweaks to allow Thread package tests to pass on Unix.
Diffstat (limited to 'unix/tclUnixThrd.c')
| -rw-r--r-- | unix/tclUnixThrd.c | 6 |
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 } } |