-- -----------------------------------------------------------------------------
--- $Id: CPUTime.hsc,v 1.7 2001/06/28 16:44:18 rrt Exp $
+-- $Id: CPUTime.hsc,v 1.9 2001/07/13 11:48:52 rrt Exp $
--
-- (c) The University of Glasgow, 1995-2001
--
import PrelIOBase ( IOException(..) )
import Ratio
-#include "cbits/HsStd.h"
+#include "HsStd.h"
-- -----------------------------------------------------------------------------
-- Computation `getCPUTime' returns the number of picoseconds CPU time
getCPUTime :: IO Integer
getCPUTime = do
-#ifndef _WIN32
+#if !defined(mingw32_TARGET_OS) && !defined(cygwin32_TARGET_OS)
-- getrusage() is right royal pain to deal with when targetting multiple
-- versions of Solaris, since some versions supply it in libc (2.3 and 2.5),
-- while 2.4 has got it in libucb (I wouldn't be too surprised if it was back
# endif
#endif
-#else /* _WIN32 */
+#else /* win32 */
allocaBytes (#const sizeof(FILETIME)) $ \ p_creationTime -> do
allocaBytes (#const sizeof(FILETIME)) $ \ p_exitTime -> do
allocaBytes (#const sizeof(FILETIME)) $ \ p_kernelTime -> do