From: Simon Marlow <marlowsd@gmail.com>
Date: Mon, 22 Jun 2009 08:39:57 +0000 (+0000)
Subject: Make this file independent of HsBase.h, use HsBaseConfig.h only
X-Git-Tag: 2009-06-25~9
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=30041dab9a9f0a92109665977eee8674385dc83c;p=ghc-base.git

Make this file independent of HsBase.h, use HsBaseConfig.h only
---

diff --git a/System/CPUTime.hsc b/System/CPUTime.hsc
index 7fe4fc2..9dc62db 100644
--- a/System/CPUTime.hsc
+++ b/System/CPUTime.hsc
@@ -34,7 +34,30 @@ import CPUTime ( getCPUTime, cpuTimePrecision )
 import Foreign
 import Foreign.C
 
-#include "HsBase.h"
+#include "HsBaseConfig.h"
+
+-- For _SC_CLK_TCK
+#if HAVE_UNISTD_H
+#include <unistd.h>
+#endif
+
+-- For struct rusage
+#if !defined(mingw32_HOST_OS) && !defined(irix_HOST_OS)
+# if HAVE_SYS_RESOURCE_H
+#  include <sys/resource.h>
+# endif
+#endif
+
+-- For FILETIME etc. on Windows
+#if HAVE_WINDOWS_H
+#include <windows.h>
+#endif
+
+-- for CLK_TCK
+#if HAVE_TIME_H
+#include <time.h>
+#endif
+
 #endif
 
 #if !defined(mingw32_HOST_OS) && !defined(cygwin32_HOST_OS)