basis-library/libs/basis-1997/system/timer-convert.fun

   1 (* Copyright (C) 2002-2005 Henry Cejtin, Matthew Fluet, Suresh
   2  *    Jagannathan, and Stephen Weeks.
   3  *
   4  * MLton is released under a BSD-style license.
   5  * See the file MLton-LICENSE for details.
   6  *)
   7
   8 functor TimerConvert
   9         (structure Timer: TIMER) :
  10         TIMER_1997 =
  11   struct
  12      open Timer
  13
  14      val checkCPUTimer = fn cput =>
  15        let
  16          val {usr, sys} = checkCPUTimer cput
  17          val gc = checkGCTime cput
  18        in
  19          {usr = usr, sys = sys, gc = gc}
  20        end
  21   end