simon/ocaml-containers
1
0
Fork 0
mirror of https://github.com/c-cube/ocaml-containers.git synced 2025-12-06 03:05:28 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

small change in test

Browse source
This commit is contained in:
Simon Cruanes 2015-09-01 11:05:58 +02:00
parent 64a41b0789
commit 5af816fe9b
1 changed files with 4 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/threads/CCThread.ml
View file

@ -43,7 +43,7 @@ module Queue = struct
size=0; size=0;
} in } in
q q
let incr_size_ q = assert(q.size < q.capacity); q.size <- q.size + 1 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 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 q = Queue.create 2 in
let senders = Arr.spawn 3 let senders = Arr.spawn 3
(fun i -> (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 in
let l = CCLock.create [] in let l = CCLock.create [] in