Commit d08db632 authored by sewardj's avatar sewardj
Browse files

[project @ 2001-09-05 15:15:33 by sewardj]

Fix 32-bit breakage.  Int32 is the wrong thing; CInt is probably
right.  I assume that Alpha is LP64, so that on Alpha
   sizeof(int) = 32, sizeof(long) = 64
and that these are both sized at 32 for 32-bit platforms.
parent 3fa9a538
-- -----------------------------------------------------------------------------
-- $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
--
......@@ -51,10 +51,10 @@ getCPUTime = do
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)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment