/[mldonkey]/mldonkey/src/daemon/common/commonUploads.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonUploads.ml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.29 by spiralvoice, Thu Jul 28 22:46:17 2005 UTC revision 1.30 by spiralvoice, Thu Jul 28 23:25:22 2005 UTC
# Line 851  let ready_for_upload c = Line 851  let ready_for_upload c =
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

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26