diff options
| author |  glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-05-19 22:23:30 +0000 |
|---|---|---|
| committer | glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2011-05-19 22:23:30 +0000 |
| commit | ea3955ed6c5e4155f9180417c8bfad875a255b90 (patch) | |
| tree | e2afd8e1b26a1a951ba5dcf2a27abf5499d27a11 /lib | |
| parent | 55a85358c4ecd29b415a542d2606854a63cc10a3 (diff) | |
Remove System.process_time (dead code)
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14145 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib')
| -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 |