diff options
| -rw-r--r-- | lib/system.ml | 4 | ||||
| -rw-r--r-- | lib/system.mli | 1 |
2 files changed, 0 insertions, 5 deletions
diff --git a/lib/system.ml b/lib/system.ml index f5c96256f..5bd2df995 100644 --- a/lib/system.ml +++ b/lib/system.ml @@ -331,10 +331,6 @@ let run_command converter f c = type time = float * float * float -let process_time () = - let t = times () in - (t.tms_utime, t.tms_stime) - let get_time () = let t = times () in (time(), t.tms_utime, t.tms_stime) diff --git a/lib/system.mli b/lib/system.mli index 61073cfc4..fae7fd1ed 100644 --- a/lib/system.mli +++ b/lib/system.mli @@ -76,7 +76,6 @@ val run_command : (string -> string) -> (string -> unit) -> string -> type time -val process_time : unit -> float * float val get_time : unit -> time val time_difference : time -> time -> float (** in seconds *) val fmt_time_difference : time -> time -> Pp.std_ppcmds |