-- -----------------------------------------------------------------------------
--- $Id: CPUTime.hsc,v 1.11 2001/09/05 04:03:15 ken Exp $
+-- $Id: CPUTime.hsc,v 1.12 2001/09/05 15:15:33 sewardj Exp $
--
-- (c) The University of Glasgow, 1995-2001
--
let ru_utime = (#ptr struct rusage, ru_utime) p_rusage
let ru_stime = (#ptr struct rusage, ru_stime) p_rusage
- u_sec <- (#peek struct timeval,tv_sec) ru_utime :: IO Int32
- u_usec <- (#peek struct timeval,tv_usec) ru_utime :: IO Int32
- s_sec <- (#peek struct timeval,tv_sec) ru_stime :: IO Int32
- s_usec <- (#peek struct timeval,tv_usec) ru_stime :: IO Int32
+ u_sec <- (#peek struct timeval,tv_sec) ru_utime :: IO CInt
+ u_usec <- (#peek struct timeval,tv_usec) ru_utime :: IO CInt
+ s_sec <- (#peek struct timeval,tv_sec) ru_stime :: IO CInt
+ s_usec <- (#peek struct timeval,tv_usec) ru_stime :: IO CInt
return ((fromIntegral u_sec * 1000000 + fromIntegral u_usec +
fromIntegral s_sec * 1000000 + fromIntegral s_usec)