Fix segfault with STM; fixes #8035. Patch from errge.
[ghc.git] / rts / GetTime.h
index 03e1f17..32c3754 100644 (file)
@@ -9,22 +9,23 @@
 #ifndef GETTIME_H
 #define GETTIME_H
 
-BEGIN_RTS_PRIVATE
+#include "BeginPrivate.h"
 
-// We'll use a fixed resolution of usec for now.  The machine
-// dependent implementation may have a different resolution, but we'll
-// normalise to this for the machine independent interface.
-#define TICKS_PER_SECOND 1000000
-typedef StgInt64 Ticks;
+void initializeTimer       (void);
 
-Ticks getProcessCPUTime     (void);
-Ticks getThreadCPUTime      (void);
-Ticks getProcessElapsedTime (void);
-void  getProcessTimes       (Ticks *user, Ticks *elapsed);
+Time getProcessCPUTime     (void);
+Time getThreadCPUTime      (void);
+Time getProcessElapsedTime (void);
+void getProcessTimes       (Time *user, Time *elapsed);
+
+/* Get the current date and time.
+   Uses seconds since the Unix epoch, plus nanoseconds
+ */
+void  getUnixEpochTime      (StgWord64 *sec, StgWord32 *nsec);
 
 // Not strictly timing, but related
-nat   getPageFaults         (void);
+W_    getPageFaults         (void);
 
-END_RTS_PRIVATE
+#include "EndPrivate.h"
 
 #endif /* GETTIME_H */