/[mldonkey]/mldonkey/src/daemon/common/commonGlobals.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonGlobals.ml

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

revision 1.53 by spiralvoice, Thu Sep 8 12:30:28 2005 UTC revision 1.54 by spiralvoice, Wed Sep 14 14:35:44 2005 UTC
# Line 211  let upload_control = TcpBufferedSocket.c Line 211  let upload_control = TcpBufferedSocket.c
211    
212  let download_control = TcpBufferedSocket.create_read_bandwidth_controler  let download_control = TcpBufferedSocket.create_read_bandwidth_controler
213    "Download"    "Download"
214      (!!max_hard_download_rate * 2048) (* TODO: changed from 1024 to 2048 because of bug *)      (!!max_hard_download_rate * 1024)
215    
216    
217  let _ =  let _ =
# Line 221  let _ = Line 221  let _ =
221    option_hook max_hard_download_rate (fun _ ->    option_hook max_hard_download_rate (fun _ ->
222        let rate = !!max_hard_download_rate in        let rate = !!max_hard_download_rate in
223        TcpBufferedSocket.change_rate download_control        TcpBufferedSocket.change_rate download_control
224          (rate * 2048)) (* TODO: changed from 1024 to 2048 because of bug *)          (rate * 1024))
225    
226  let udp_write_controler = UdpSocket.new_bandwidth_controler upload_control  let udp_write_controler = UdpSocket.new_bandwidth_controler upload_control
227    

Legend:
Removed from v.1.53  
changed lines
  Added in v.1.54

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