Clean up debug reporting code.
This commit is contained in:
parent
965a9752e0
commit
b9eda344cc
12
queuenode.ml
12
queuenode.ml
|
@ -10,13 +10,15 @@ type t = {
|
||||||
|
|
||||||
let classname = "queue"
|
let classname = "queue"
|
||||||
|
|
||||||
let rec do_burst info n =
|
let report info n =
|
||||||
(*
|
Printf.printf "INFO: do_burst %d capacity, %d backlog, %d waiters, %d ticks left\n%!"
|
||||||
Printf.printf "INFO: do_burst %d backlog %d waiters %d ticks left\n%!"
|
(Squeue.approx_capacity info.ch)
|
||||||
(Fqueue.length info.backlog)
|
(Fqueue.length info.backlog)
|
||||||
(Fqueue.length info.waiters)
|
(Fqueue.length info.waiters)
|
||||||
n;
|
n
|
||||||
*)
|
|
||||||
|
let rec do_burst info n =
|
||||||
|
(* report info n; *)
|
||||||
if Fqueue.is_empty info.backlog then false
|
if Fqueue.is_empty info.backlog then false
|
||||||
else
|
else
|
||||||
if Fqueue.is_empty info.waiters then false
|
if Fqueue.is_empty info.waiters then false
|
||||||
|
|
Loading…
Reference in New Issue