X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Feventlog%2FEventLog.h;fp=rts%2Feventlog%2FEventLog.h;h=c2511b986bdb3e165a14d4ac8ce37291e21de7cc;hb=c29305dadcb245bb080f65d946d92d0035243b6c;hp=386730106e86284e17129406c5a0227dd0a7431f;hpb=543823a15820e4006b4d973b1bddf07749f7c1b3;p=ghc-hetmet.git

diff --git a/rts/eventlog/EventLog.h b/rts/eventlog/EventLog.h
index 3867301..c2511b9 100644
--- a/rts/eventlog/EventLog.h
+++ b/rts/eventlog/EventLog.h
@@ -23,15 +23,15 @@ void initEventLogging(void);
 void endEventLogging(void);
 void freeEventLogging(void);
 
-void postEvent_(Capability *cap, EventTypeNum tag, StgThreadID id, nat from);
+void postEvent_(Capability *cap, EventTypeNum tag, StgThreadID id, StgWord64 other);
 
 /* 
  * Post an event to the capability's event buffer.
  */
-INLINE_HEADER void postEvent(Capability *cap, EventTypeNum tag, StgThreadID id, nat from)
+INLINE_HEADER void postEvent(Capability *cap, EventTypeNum tag, StgThreadID id, StgWord64 other)
 {
     if (RtsFlags.EventLogFlags.doEventLogging) {
-        postEvent_(cap, tag, id, from);
+        postEvent_(cap, tag, id, other);
     }
 }
 
@@ -42,7 +42,7 @@ void printAndClearEventLog(Capability *cap);
 INLINE_HEADER void postEvent(Capability *cap  STG_UNUSED,
                              EventTypeNum tag STG_UNUSED,
                              StgThreadID id   STG_UNUSED,
-                             nat from         STG_UNUSED)
+                             StgWord64 other  STG_UNUSED)
 {
     /* nothing */
 }