[Mldonkey-commits] Changes to mldonkey/src/networks/fileTP/fileTPClients.ml

[mldonkey-commits]

Index: mldonkey/src/networks/fileTP/fileTPClients.ml
diff -u mldonkey/src/networks/fileTP/fileTPClients.ml:1.10 
mldonkey/src/networks/fileTP/fileTPClients.ml:1.11
--- mldonkey/src/networks/fileTP/fileTPClients.ml:1.10  Tue Jul 26 23:16:48 2005
+++ mldonkey/src/networks/fileTP/fileTPClients.ml       Sun Oct 16 20:42:54 2005
@@ -50,14 +50,13 @@
   *)
 let range_size file =  min_range_size
   (*
-  let range =  file_size file // (Int64.of_int 10) in
+  let range =  file_size file // 10L in
   max (min range max_range_size) min_range_size
 *)
 let max_queued_ranges = 1
 
 let nranges file =
-  Int64.to_int (Int64.div (file_size file)
-    min_range_size) + 5
+  Int64.to_int ((file_size file) // min_range_size) + 5
 
 let disconnect_client c r =
   match c.client_sock with
@@ -332,8 +331,7 @@
   ()
 
 let nranges file =
-  Int64.to_int (Int64.div (file_size file)
-    min_range_size) + 5
+  Int64.to_int ((file_size file) // min_range_size) + 5
 
 let manage_hosts () =
   List.iter (fun file ->