From ea3955ed6c5e4155f9180417c8bfad875a255b90 Mon Sep 17 00:00:00 2001
From: glondu <glondu@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Thu, 19 May 2011 22:23:30 +0000
Subject: Remove System.process_time (dead code)

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@14145 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/system.ml  | 4 ----
 lib/system.mli | 1 -
 2 files changed, 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
-- 
cgit v1.2.3