-- -----------------------------------------------------------------------------
-- getClockTime returns the current time in its internal representation.
+getClockTime :: IO ClockTime
#if HAVE_GETTIMEOFDAY
getClockTime = do
allocaBytes (#const sizeof(struct timeval)) $ \ p_timeval -> do