Expose the prototype for getMonotonicNSec
authorIan Lynagh <ian@well-typed.com>
Thu, 17 Jan 2013 15:33:26 +0000 (15:33 +0000)
committerIan Lynagh <ian@well-typed.com>
Thu, 17 Jan 2013 15:33:56 +0000 (15:33 +0000)
Fixes T3807 on OS X 32.

includes/Rts.h
includes/rts/GetTime.h [new file with mode: 0644]
rts/GetTime.h

index edb48c1..b2f44cb 100644 (file)
@@ -226,6 +226,7 @@ INLINE_HEADER Time fsecondsToTime (double t)
 #include "rts/Flags.h"
 #include "rts/Adjustor.h"
 #include "rts/FileLock.h"
 #include "rts/Flags.h"
 #include "rts/Adjustor.h"
 #include "rts/FileLock.h"
+#include "rts/GetTime.h"
 #include "rts/Globals.h"
 #include "rts/IOManager.h"
 #include "rts/Linker.h"
 #include "rts/Globals.h"
 #include "rts/IOManager.h"
 #include "rts/Linker.h"
diff --git a/includes/rts/GetTime.h b/includes/rts/GetTime.h
new file mode 100644 (file)
index 0000000..79cef4f
--- /dev/null
@@ -0,0 +1,19 @@
+/* -----------------------------------------------------------------------------
+ *
+ * (c) The GHC Team, 1995-2009
+ *
+ * Interface to the RTS time
+ *
+ * Do not #include this file directly: #include "Rts.h" instead.
+ *
+ * To understand the structure of the RTS headers, see the wiki:
+ *   http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes
+ *
+ * ---------------------------------------------------------------------------*/
+
+#ifndef RTS_GETTIME_H
+#define RTS_GETTIME_H
+
+StgWord64 getMonotonicNSec (void);
+
+#endif /* RTS_GETTIME_H */
index 4b967b5..32c3754 100644 (file)
@@ -12,7 +12,6 @@
 #include "BeginPrivate.h"
 
 void initializeTimer       (void);
 #include "BeginPrivate.h"
 
 void initializeTimer       (void);
-StgWord64 getMonotonicNSec (void);
 
 Time getProcessCPUTime     (void);
 Time getThreadCPUTime      (void);
 
 Time getProcessCPUTime     (void);
 Time getThreadCPUTime      (void);