[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.24 
mldonkey/src/utils/net/tcpBufferedSocket.ml:1.25
--- mldonkey/src/utils/net/tcpBufferedSocket.ml:1.24    Thu Apr  7 16:02:50 2005
+++ mldonkey/src/utils/net/tcpBufferedSocket.ml Tue Jun 28 22:45:57 2005
@@ -448,6 +448,10 @@
 (*************************************************************************)
 
 let buf t = t.rbuf
+let setsock_iptos_throughput t =
+  ignore (setsock_iptos_throughput (fd (t.sock_in)));
+  ignore (setsock_iptos_throughput (fd (t.sock_out)))
+
 let closed t = closed t.sock_out
 let error t = t.error
 let sock_used t nused = buf_used t.rbuf nused