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

fix: wait for threads to terminate when shutting down server

Browse source
This commit is contained in:
Simon Cruanes 2023-08-04 11:01:24 -04:00
parent 5c1530f816
commit 1ca1f3dff9
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Tiny_httpd_server.ml
View file

@ -970,6 +970,9 @@ module Unix_tcp_server_ = struct
k "Unix.accept or Thread.create raised an exception: %s" k "Unix.accept or Thread.create raised an exception: %s"
(Printexc.to_string e)) (Printexc.to_string e))
done; done;
(* Wait for all threads to be done: this only works if all threads are done. *)
Sem_.acquire self.sem_max_connections.max self.sem_max_connections;
()); ());
} }
end end