2155 |
let nsources = ref 0 in |
let nsources = ref 0 in |
2156 |
HS.iter (fun _ -> incr nsources) sources_by_uid; |
HS.iter (fun _ -> incr nsources) sources_by_uid; |
2157 |
Printf.bprintf buf "Sources by UID table: %d entries\n" !nsources; |
Printf.bprintf buf "Sources by UID table: %d entries\n" !nsources; |
2158 |
|
|
2159 |
|
nsources := 0; |
2160 |
|
H.iter (fun _ -> incr nsources) sources_by_num; |
2161 |
|
Printf.bprintf buf "Sources by NUM table: %d entries\n" !nsources; |
2162 |
|
|
2163 |
let nconnected = ref 0 in |
let nconnected = ref 0 in |
2164 |
Fifo.iter (fun (_,s) -> |
Fifo.iter (fun (_,s) -> |