448 |
(*************************************************************************) |
(*************************************************************************) |
449 |
|
|
450 |
let buf t = t.rbuf |
let buf t = t.rbuf |
451 |
|
let setsock_iptos_throughput t = |
452 |
|
ignore (setsock_iptos_throughput (fd (t.sock_in))); |
453 |
|
ignore (setsock_iptos_throughput (fd (t.sock_out))) |
454 |
|
|
455 |
let closed t = closed t.sock_out |
let closed t = closed t.sock_out |
456 |
let error t = t.error |
let error t = t.error |
457 |
let sock_used t nused = buf_used t.rbuf nused |
let sock_used t nused = buf_used t.rbuf nused |