[Mldonkey-commits] Changes to mldonkey/src/utils/net/tcpBufferedSocket.ml

[mldonkey-commits]

Index: mldonkey/src/utils/net/tcpBufferedSocket.ml
diff -u mldonkey/src/utils/net/tcpBufferedSocket.ml:1.33 
mldonkey/src/utils/net/tcpBufferedSocket.ml:1.34
--- mldonkey/src/utils/net/tcpBufferedSocket.ml:1.33    Tue Sep  6 11:25:00 2005
+++ mldonkey/src/utils/net/tcpBufferedSocket.ml Wed Sep 14 14:35:48 2005
@@ -1689,7 +1689,6 @@
                     let nconnections = maxi bc.nconnections 1 in
                     let can_read = maxi 1 (bc.remaining_bytes / nconnections) 
in
                     let can_read = maxi !ip_packet_size (can_read * 
t.read_power) in
-                    let old_nread = t.nread in
                     (try
 (*                    lprintf "allow to read %d\n" can_read; *)
                         can_read_handler t t.sock_in can_read
@@ -1698,8 +1697,6 @@
                             (Printexc2.to_string e)
                           t.name (sock_num t.sock_in) *) ()
                     );
-                    bc.remaining_bytes <- bc.remaining_bytes -
-                    t.nread + old_nread;
                     bc.nconnections <- bc.nconnections - t.read_power
                   else
                   if !verbose_bandwidth > 2 then begin