/[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.30 by spiralvoice, Thu Jul 28 23:25:22 2005 UTC revision 1.31 by spiralvoice, Fri Aug 26 21:21:20 2005 UTC
# Line 882  let rec give_a_slot c = Line 882  let rec give_a_slot c =
882  and find_pending_slot () =  and find_pending_slot () =
883    try    try
884      let rec iter () =      let rec iter () =
885        let _, c = Intmap.top !pending_slots_map in        let c = Intmap.nth !pending_slots_map
886            (Random.int (Intmap.length !pending_slots_map)) in
887        give_a_slot c        give_a_slot c
888      in      in
889      iter ()      iter ()

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

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