diff options
author | 2017-06-10 04:12:11 +0200 | |
---|---|---|
committer | 2017-12-11 11:59:07 +0100 | |
commit | a758aac39aa330911f5f589ab3cae1bebed1e9ce (patch) | |
tree | 17e8e7c41a194a8ac3d17c9fa922da1177e574d4 /lib/system.ml | |
parent | a77f3a3e076e273af35ad520cae2eef0e3552811 (diff) |
[stm] Move process_id to Spawned.
This brings us one step closer to actually moving all STM flags to
`stm`.
Diffstat (limited to 'lib/system.ml')
-rw-r--r-- | lib/system.ml | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/lib/system.ml b/lib/system.ml index 4b5066ef4..2c8dbac7c 100644 --- a/lib/system.ml +++ b/lib/system.ml @@ -309,9 +309,3 @@ let with_time time f x = let msg2 = if time then "" else " (failure)" in Feedback.msg_info (str msg ++ fmt_time_difference tstart tend ++ str msg2); raise e - -let process_id () = - 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 ())) |