import Foreign (Ptr, Storable(..), nullPtr, with)
import Foreign.C.Error (throwErrnoIfMinus1_)
-import Foreign.C.Types (CInt, CLong)
+import Foreign.C.Types (CInt, CLong, CTime, CSUSeconds)
import GHC.Base
import GHC.Err
import GHC.Num
tv <- with (CTimeval 0 0) $ \tvptr -> do
throwErrnoIfMinus1_ "gettimeofday" (gettimeofday tvptr nullPtr)
peek tvptr
- let !t = fromIntegral (sec tv) + fromIntegral (usec tv) / 1000000.0
+ let !t = realToFrac (sec tv) + realToFrac (usec tv) / 1000000.0
return t
------------------------------------------------------------------------
-- FFI binding
data CTimeval = CTimeval
- { sec :: {-# UNPACK #-} !CLong
- , usec :: {-# UNPACK #-} !CLong
+ { sec :: {-# UNPACK #-} !CTime
+ , usec :: {-# UNPACK #-} !CSUSeconds
}
instance Storable CTimeval where
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 CTime
- u_usec <- (#peek struct timeval,tv_usec) ru_utime :: IO CTime
+ u_usec <- (#peek struct timeval,tv_usec) ru_utime :: IO CSUSeconds
s_sec <- (#peek struct timeval,tv_sec) ru_stime :: IO CTime
- s_usec <- (#peek struct timeval,tv_usec) ru_stime :: IO CTime
+ s_usec <- (#peek struct timeval,tv_usec) ru_stime :: IO CSUSeconds
return ((realToInteger u_sec * 1000000 + realToInteger u_usec +
realToInteger s_sec * 1000000 + realToInteger s_usec)
* 1000000)