syndicate-lang
/
hop-2012
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Disabling flushing oddly improves latency as well as throughput?

This commit is contained in:
Tony Garnock-Jones 2012-05-05 19:37:29 -04:00
parent 3ec664d922
commit f8bfb0e9dd
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
relay.ml
View File

@ -61,7 +61,7 @@ let issue_banner cin cout =
let relay_boot (peername, cin, cout) = return (peername, Lwt_mutex.create (), cin, cout)
let relay_handler (_, mtx, _, cout) _ m =
Lwt_mutex.with_lock mtx (fun () -> output_sexp_and_flush cout m)
Lwt_mutex.with_lock mtx (fun () -> output_sexp cout m)
let relay_mainloop (peername, mtx, cin, cout) n =
let write_sexp sexp = Lwt_mutex.with_lock mtx (fun () -> output_sexp cout sexp) in