[Mldonkey-commits] Changes to mldonkey/src/networks/openFT/openFTClients.ml

[mldonkey-commits]

Index: mldonkey/src/networks/openFT/openFTClients.ml
diff -u mldonkey/src/networks/openFT/openFTClients.ml:1.2 
mldonkey/src/networks/openFT/openFTClients.ml:1.3
--- mldonkey/src/networks/openFT/openFTClients.ml:1.2   Mon Nov  1 11:23:02 2004
+++ mldonkey/src/networks/openFT/openFTClients.ml       Sun Oct 16 20:42:54 2005
@@ -206,7 +206,7 @@
           Unix2.really_write fd b.buf b.pos b.len;
         end;
 (*      lprintf "DIFF %d/%d" nread b.len; lprint_newline ();*)
-        c.client_pos <- Int64.add c.client_pos (Int64.of_int b.len);
+        c.client_pos <- c.client_pos ++ (Int64.of_int b.len);
 (*
       lprintf "NEW SOURCE POS %s" (Int64.to_string c.client_pos);
 lprint_newline ();