simon/tiny_httpd
1
0
Fork 0
mirror of https://github.com/c-cube/tiny_httpd.git synced 2025-12-06 11:15:35 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

moved back acquire before accept but inside the try ... with ... one never knowns

Browse source
This commit is contained in:
craff 2021-12-10 12:49:51 -10:00
parent 97eeaf96dc
commit c3265af08f
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Tiny_httpd.ml
View file

@ -724,7 +724,8 @@ module Sem_ = struct
Condition.broadcast t.cond; Condition.broadcast t.cond;
Mutex.unlock t.mutex Mutex.unlock t.mutex
let available_connections t = t.n (* +1 because we decrease the semaphore before Unix.accept *)
let available_connections t = t.n + 1
end end
@ -1123,8 +1124,8 @@ let run (self:t) : (unit,_) result =
while self.running do while self.running do
(* limit concurrency *) (* limit concurrency *)
try try
let client_sock, _ = Unix.accept sock in
Sem_.acquire 1 self.sem_max_connections; Sem_.acquire 1 self.sem_max_connections;
let client_sock, _ = Unix.accept sock in
self.new_thread self.new_thread
(fun () -> (fun () ->
try try