/[mldonkey]/mldonkey/src/networks/fileTP/fileTPClients.ml
ViewVC logotype

Diff of /mldonkey/src/networks/fileTP/fileTPClients.ml

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

revision 1.12 by spiralvoice, Fri Dec 2 12:08:26 2005 UTC revision 1.13 by spiralvoice, Sun Dec 4 15:22:43 2005 UTC
# Line 177  let get_from_client sock (c: client) = Line 177  let get_from_client sock (c: client) =
177                            let b = Int64Swarmer.find_block up in                            let b = Int64Swarmer.find_block up in
178    
179  (*                          lprintf "GOT BLOCK:\n"; *)  (*                          lprintf "GOT BLOCK:\n"; *)
180                            Int64Swarmer.print_uploaders swarmer;                            if !verbose_swarming then Int64Swarmer.print_uploaders swarmer;
181    
182                            if !verbose_swarming then begin                            if !verbose_swarming then begin
183                                lprintf "Block Found: "; Int64Swarmer.print_block b;                                lprintf "Block Found: "; Int64Swarmer.print_block b;
# Line 193  let get_from_client sock (c: client) = Line 193  let get_from_client sock (c: client) =
193                              let (x,y,r) = Int64Swarmer.find_range up in                              let (x,y,r) = Int64Swarmer.find_range up in
194    
195  (*                            lprintf "GOT RANGE:\n"; *)  (*                            lprintf "GOT RANGE:\n"; *)
196                              Int64Swarmer.print_uploaders swarmer;                              if !verbose_swarming then Int64Swarmer.print_uploaders swarmer;
197    
198                              d.download_ranges <- d.download_ranges @ [x,y,r];                              d.download_ranges <- d.download_ranges @ [x,y,r];
199  (*                        Int64Swarmer.alloc_range r; *)  (*                        Int64Swarmer.alloc_range r; *)

Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13

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