Commit d63bc4ad authored by sewardj's avatar sewardj
Browse files

[project @ 2001-08-10 09:53:40 by sewardj]

Fix Solaris borkage.  Sigh.
parent fb431441
-- -----------------------------------------------------------------------------
-- $Id: CPUTime.hsc,v 1.9 2001/07/13 11:48:52 rrt Exp $
-- $Id: CPUTime.hsc,v 1.10 2001/08/10 09:53:40 sewardj Exp $
--
-- (c) The University of Glasgow, 1995-2001
--
......@@ -69,10 +69,10 @@ foreign import unsafe getrusage :: CInt -> Ptr CRUsage -> IO CInt
u_ticks <- (#peek struct tms,tms_utime) p_tms :: IO CClock
s_ticks <- (#peek struct tms,tms_stime) p_tms :: IO CClock
return (( (fromIntegral u_ticks + fromIntegral s_ticks) * 1000000000000)
`div` clockTicks)
`div` fromIntegral clockTicks)
type CTms = ()
foreign import unsafe times :: Ptr CTms -> CClock
foreign import unsafe times :: Ptr CTms -> IO CClock
# else
ioException (IOError Nothing UnsupportedOperation
"getCPUTime"
......
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