[Mldonkey-commits] Changes to mldonkey/src/daemon/common/commonUploads.ml

[mldonkey-commits]

Index: mldonkey/src/daemon/common/commonUploads.ml
diff -u mldonkey/src/daemon/common/commonUploads.ml:1.34 
mldonkey/src/daemon/common/commonUploads.ml:1.35
--- mldonkey/src/daemon/common/commonUploads.ml:1.34    Sun Oct 16 20:42:50 2005
+++ mldonkey/src/daemon/common/commonUploads.ml Mon Oct 31 18:01:46 2005
@@ -740,8 +740,10 @@
 
 let packet_size = 10240
 
-let streaming_amount = packet_size * 2
-let streaming_left = ref streaming_amount
+(* two seconds max of streaming ahead *)
+let streaming_amount () = 
+  int_of_float (!CommonGlobals.payload_bandwidth *. 2.0)
+let streaming_left = ref (streaming_amount ())
 let streaming_time = (ref None : float option ref)
 
 let has_upload = ref 0
@@ -800,8 +802,7 @@
     | Some t -> new_streaming_time -. t) in
   streaming_left := !streaming_left + 
     (int_of_float (!CommonGlobals.payload_bandwidth *. deltat));
-  if !streaming_left > streaming_amount then
-    streaming_left := streaming_amount;
+  streaming_left := min !streaming_left (streaming_amount ());
   streaming_time := Some new_streaming_time;
   next_uploads_aux ()