rts: Claim AP_STACK before adjusting Sp
[ghc.git] / rts / GetTime.h
index 03e1f17..719b45f 100644 (file)
@@ -6,25 +6,22 @@
  *
  * ---------------------------------------------------------------------------*/
 
-#ifndef GETTIME_H
-#define GETTIME_H
+#pragma once
 
-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 getProcessElapsedTime (void);
+void getProcessTimes       (Time *user, Time *elapsed);
 
-// Not strictly timing, but related
-nat   getPageFaults         (void);
+/* Get the current date and time.
+   Uses seconds since the Unix epoch, plus nanoseconds
+ */
+void  getUnixEpochTime      (StgWord64 *sec, StgWord32 *nsec);
 
-END_RTS_PRIVATE
+// Not strictly timing, but related
+W_    getPageFaults         (void);
 
-#endif /* GETTIME_H */
+#include "EndPrivate.h"