# HG changeset patch
# User wenzelm
# Date 1087716515 -7200
# Node ID 245955f0c5796b93652d3f9399ff00048d1090fe
# Parent  108ce0289c3567bcac07aedd0f8b60d53c0d588c
added checkTimer;

diff -r 108ce0289c35 -r 245955f0c579 src/Pure/ML-Systems/cpu-timer-basis.ML
--- a/src/Pure/ML-Systems/cpu-timer-basis.ML	Sun Jun 20 09:27:40 2004 +0200
+++ b/src/Pure/ML-Systems/cpu-timer-basis.ML	Sun Jun 20 09:28:35 2004 +0200
@@ -21,3 +21,8 @@
       handle Time => ""
   end;
 
+fun checkTimer timer =
+  let
+    val {sys, usr} = Timer.checkCPUTimer timer;
+    val gc = Timer.checkGCTime timer;    (* FIXME already included in usr? *)
+  in (sys, usr, gc) end;
diff -r 108ce0289c35 -r 245955f0c579 src/Pure/ML-Systems/cpu-timer-gc.ML
--- a/src/Pure/ML-Systems/cpu-timer-gc.ML	Sun Jun 20 09:27:40 2004 +0200
+++ b/src/Pure/ML-Systems/cpu-timer-gc.ML	Sun Jun 20 09:28:35 2004 +0200
@@ -23,3 +23,6 @@
       handle Time => ""
   end;
 
+fun checkTimer timer =
+  let val {sys, usr, gc} = Timer.checkCPUTimer timer
+  in (sys, usr, gc) end;