Commit f05392e8 authored by MARCHE Claude's avatar MARCHE Claude

Merge branch 'master' into itp

parents a465e9b2 6f79556b
......@@ -104,8 +104,10 @@ let connect_internal () =
Buffer.clear recv_buf;
let cwd = Unix.getcwd () in
Unix.chdir (Filename.get_temp_dir_name ());
let socket_name = Filename.concat (Unix.getcwd ())
("why3server." ^ string_of_int (Unix.getpid ()) ^ ".sock") in
let socket_name = (* Filename.concat (Unix.getcwd ())
("why3server." ^ string_of_int (Unix.getpid ()) ^ ".sock") *)
Filename.temp_file "why3server" "sock"
in
let exec = Filename.concat Config.libdir "why3server" in
let pid = Unix.create_process exec
[|exec; "--socket"; socket_name;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment