851 |
Fifo.put upload_clients c |
Fifo.put upload_clients c |
852 |
|
|
853 |
let add_pending_slot c = |
let add_pending_slot c = |
854 |
if client_has_a_slot c then |
if client_has_a_slot c then begin |
855 |
if !verbose_upload then lprintf_nl "[cUp] Avoided inserting an uploader in pending slots!" |
if !verbose_upload then lprintf_nl "[cUp] Avoided inserting an uploader in pending slots!" |
856 |
|
end |
857 |
else |
else |
858 |
if not (Intmap.mem (client_num c) !pending_slots_map) then |
if not (Intmap.mem (client_num c) !pending_slots_map) then |
859 |
begin |
begin |