From ab97dd2c8d49e59b7fb623e1fe9606395a176187 Mon Sep 17 00:00:00 2001
From: Enrico Tassi
Date: Wed, 4 Feb 2015 11:36:05 +0100
Subject: CThread: workaround for threads lockup on windwos made more
 aggressive

---
 lib/cThread.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/cThread.ml')

diff --git a/lib/cThread.ml b/lib/cThread.ml
index 55bb6fd6d0..84e5ae4fe6 100644
--- a/lib/cThread.ml
+++ b/lib/cThread.ml
@@ -22,7 +22,7 @@ let thread_friendly_read_fd fd s ~off ~len =
   let rec loop () =
     try Unix.read fd s off len
     with Unix.Unix_error((Unix.EWOULDBLOCK|Unix.EAGAIN|Unix.EINTR),_,_) ->
-      while not (safe_wait_timed_read fd 1.0) do Thread.yield () done;
+      while not (safe_wait_timed_read fd 0.05) do Thread.yield () done;
       loop ()
   in 
     loop ()
-- 
cgit v1.2.3