aboutsummaryrefslogtreecommitdiffhomepage
path: root/lib
diff options
context:
space:
mode:
authorGravatar glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7>2011-05-19 22:23:30 +0000
committerGravatar glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7>2011-05-19 22:23:30 +0000
commitea3955ed6c5e4155f9180417c8bfad875a255b90 (patch)
treee2afd8e1b26a1a951ba5dcf2a27abf5499d27a11 /lib
parent55a85358c4ecd29b415a542d2606854a63cc10a3 (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.ml4
-rw-r--r--lib/system.mli1
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