/[mldonkey]/mldonkey/src/networks/bittorrent/bTClients.ml
ViewVC logotype

Diff of /mldonkey/src/networks/bittorrent/bTClients.ml

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

revision 1.46 by spiralvoice, Tue Aug 9 10:52:58 2005 UTC revision 1.47 by spiralvoice, Mon Aug 15 20:27:56 2005 UTC
# Line 767  and client_to_client c sock msg = Line 767  and client_to_client c sock msg =
767              (* update the stats *)              (* update the stats *)
768              let len64 = Int64.of_int len in              let len64 = Int64.of_int len in
769              count_download c file len64;              count_download c file len64;
770                network_must_update network;
771              if !verbose_msg_clients then              if !verbose_msg_clients then
772                (match c.client_ranges_sent with                (match c.client_ranges_sent with
773                    [] -> lprintf_nl () "EMPTY Ranges !!!"                    [] -> lprintf_nl () "EMPTY Ranges !!!"
# Line 1447  let rec iter_upload sock c = Line 1448  let rec iter_upload sock c =
1448            (* update stats *)            (* update stats *)
1449            let uploaded = Int64.of_int len in            let uploaded = Int64.of_int len in
1450            count_upload c file uploaded;            count_upload c file uploaded;
1451              network_must_update network;
1452            iter_upload sock c            iter_upload sock c
1453          end else          end else
1454          begin          begin

Legend:
Removed from v.1.46  
changed lines
  Added in v.1.47

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