From 9c1edfa84dfd8e6b2441c8d8558f3471ea9a6628 Mon Sep 17 00:00:00 2001
From: Ian Lynagh <ian@well-typed.com>
Date: Thu, 17 Jan 2013 15:33:26 +0000
Subject: [PATCH] Expose the prototype for getMonotonicNSec

Fixes T3807 on OS X 32.
---
 includes/Rts.h         |  1 +
 includes/rts/GetTime.h | 19 +++++++++++++++++++
 rts/GetTime.h          |  1 -
 3 files changed, 20 insertions(+), 1 deletion(-)
 create mode 100644 includes/rts/GetTime.h

diff --git a/includes/Rts.h b/includes/Rts.h
index c52fe63d78bf..3aa7660c326f 100644
--- a/includes/Rts.h
+++ b/includes/Rts.h
@@ -227,6 +227,7 @@ INLINE_HEADER Time fsecondsToTime (double t)
 #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"
diff --git a/includes/rts/GetTime.h b/includes/rts/GetTime.h
new file mode 100644
index 000000000000..79cef4fc7f8f
--- /dev/null
+++ b/includes/rts/GetTime.h
@@ -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 */
diff --git a/rts/GetTime.h b/rts/GetTime.h
index 4b967b5b9a31..32c375482957 100644
--- a/rts/GetTime.h
+++ b/rts/GetTime.h
@@ -12,7 +12,6 @@
 #include "BeginPrivate.h"
 
 void initializeTimer       (void);
-StgWord64 getMonotonicNSec (void);
 
 Time getProcessCPUTime     (void);
 Time getThreadCPUTime      (void);
-- 
GitLab