From 5af816fe9bfdc18c8a5ef6e08d824cb6926a0352 Mon Sep 17 00:00:00 2001 From: Simon Cruanes Date: Tue, 1 Sep 2015 11:05:58 +0200 Subject: [PATCH] small change in test --- src/threads/CCThread.ml | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/src/threads/CCThread.ml b/src/threads/CCThread.ml index f34d597c..28832fa2 100644 --- a/src/threads/CCThread.ml +++ b/src/threads/CCThread.ml @@ -43,7 +43,7 @@ module Queue = struct size=0; } in q - + let incr_size_ q = assert(q.size < q.capacity); q.size <- q.size + 1 let decr_size_ q = assert(q.size > 0); q.size <- q.size - 1 @@ -112,7 +112,9 @@ module Queue = struct let q = Queue.create 2 in let senders = Arr.spawn 3 (fun i -> - List.iter (Queue.push q) lists.(i) + if i=1 + then Queue.push_list q lists.(i) (* test push_list *) + else List.iter (Queue.push q) lists.(i) ) in let l = CCLock.create [] in