/[mldonkey]/mldonkey/src/networks/donkey/donkeyOvernet.ml
ViewVC logotype

Diff of /mldonkey/src/networks/donkey/donkeyOvernet.ml

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

revision 1.37 by spiralvoice, Mon Jul 18 00:52:31 2005 UTC revision 1.38 by spiralvoice, Wed Jul 20 21:05:26 2005 UTC
# Line 709  let new_peer p = Line 709  let new_peer p =
709          pp.peer_last_recv <- p.peer_last_recv;          pp.peer_last_recv <- p.peer_last_recv;
710        pp        pp
711      with _ ->      with _ ->
712    
713            let bucket = bucket_number p.peer_md4 in
714  (* First, enter the peer in the boot_peers to be able to use at next  (* First, enter the peer in the boot_peers to be able to use at next
715  restart. *)  restart. *)
716          bootstrap p.peer_ip p.peer_port;          if bucket <> 128 then
717                bootstrap p.peer_ip p.peer_port;
718    
719  (* Now, enter it in the buckets *)  (* bucket = 128 is returned for our very own ID, we dont want it in our buckets
720          let bucket = bucket_number p.peer_md4 in     Then, enter it in the buckets *)
721          if bucket < !n_used_buckets then begin          if bucket < !n_used_buckets && bucket <> 128 then begin
722    
723              if Fifo.length prebuckets.(bucket) = max_peers_per_prebucket then              if Fifo.length prebuckets.(bucket) = max_peers_per_prebucket then
724              begin              begin
# Line 740  restart. *) Line 743  restart. *)
743                 incr pre_connected_peers                 incr pre_connected_peers
744              end              end
745          end          end
746          else if !n_used_buckets < 128 then begin          else if !n_used_buckets < 128 && bucket <> 128 then begin
747              Fifo.put prebuckets.(!n_used_buckets) p;              Fifo.put prebuckets.(!n_used_buckets) p;
748    
749              while !n_used_buckets < 128 &&              while !n_used_buckets < 128 &&

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

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