LCPQ/qp2
9
1
Fork 0
mirror of https://github.com/QuantumPackage/qp2.git synced 2024-12-22 03:23:29 +01:00
Code Releases Activity

Choose a port number based on PID

Browse Source
This commit is contained in:
Anthony Scemama 2023-06-11 11:41:48 +02:00
parent caa11f20ea
commit 24f91e9bec
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ocaml/qp_run.ml
View File

@ -38,7 +38,8 @@ let run slave ?prefix exe ezfio_file =
| Unix.Unix_error _ -> try_new_port (port_number+100) | Unix.Unix_error _ -> try_new_port (port_number+100)
in in
let result = let result =
try_new_port 41279 let port = 10*(Unix.getpid () mod 2823) + 32_769 in
try_new_port port
in in
Zmq.Socket.close dummy_socket; Zmq.Socket.close dummy_socket;
Zmq.Context.terminate zmq_context; Zmq.Context.terminate zmq_context;