diff options
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/aux_file.ml | 4 | ||||
| -rw-r--r-- | lib/system.ml | 7 |
2 files changed, 4 insertions, 7 deletions
diff --git a/lib/aux_file.ml b/lib/aux_file.ml index 17f55330de..1b6651a55f 100644 --- a/lib/aux_file.ml +++ b/lib/aux_file.ml @@ -17,10 +17,6 @@ let version = 1 let oc = ref None -let chop_extension f = - if check_suffix f ".v" then chop_extension f - else f - let aux_file_name_for vfile = dirname vfile ^ "/." ^ chop_extension(basename vfile) ^ ".aux" diff --git a/lib/system.ml b/lib/system.ml index 74dd224a0a..e0e2c829d9 100644 --- a/lib/system.ml +++ b/lib/system.ml @@ -309,6 +309,7 @@ let with_time time f x = raise e let process_id () = - if Flags.async_proofs_is_worker () then !Flags.async_proofs_worker_id - else Printf.sprintf "master:%d" (Thread.id (Thread.self ())) - + Printf.sprintf "%d:%s:%d" (Unix.getpid ()) + (if Flags.async_proofs_is_worker () then !Flags.async_proofs_worker_id + else "master") + (Thread.id (Thread.self ())) |