X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FMessages.h;h=febb839ee9e369f511a90a529ceef2cd19064b8b;hb=d8334d807812e40f67770ffc37608c0ce66f96b2;hp=15c037954b27efc2d44f2de0d294aa93a65c707a;hpb=5d52d9b64c21dcf77849866584744722f8121389;p=ghc-hetmet.git

diff --git a/rts/Messages.h b/rts/Messages.h
index 15c0379..febb839 100644
--- a/rts/Messages.h
+++ b/rts/Messages.h
@@ -6,7 +6,7 @@
  *
  * --------------------------------------------------------------------------*/
 
-BEGIN_RTS_PRIVATE
+#include "BeginPrivate.h"
 
 nat messageBlackHole(Capability *cap, MessageBlackHole *msg);
 
@@ -15,4 +15,15 @@ void executeMessage (Capability *cap, Message *m);
 void sendMessage    (Capability *from_cap, Capability *to_cap, Message *msg);
 #endif
 
-END_RTS_PRIVATE
+#include "Capability.h"
+#include "Updates.h" // for DEBUG_FILL_SLOP
+
+INLINE_HEADER void
+doneWithMsgThrowTo (MessageThrowTo *m)
+{
+    OVERWRITING_CLOSURE((StgClosure*)m);
+    unlockClosure((StgClosure*)m, &stg_MSG_NULL_info);
+    LDV_RECORD_CREATE(m);
+}
+
+#include "EndPrivate.h"