X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FMessages.h;h=4121364b21dc120824fea212407384b75fa18158;hb=26f4bfc82f2b2359259578e9c54d476fc2de650f;hp=54650fd018a6dc7b40800e0349d42e1f295dd71b;hpb=51b85031ce99f1e9d4c72249d6d85672188f0fbd;p=ghc-hetmet.git

diff --git a/rts/Messages.h b/rts/Messages.h
index 54650fd..4121364 100644
--- a/rts/Messages.h
+++ b/rts/Messages.h
@@ -9,10 +9,22 @@
 #include "BeginPrivate.h"
 
 nat messageBlackHole(Capability *cap, MessageBlackHole *msg);
+StgTSO * blackHoleOwner (StgClosure *bh);
 
 #ifdef THREADED_RTS
 void executeMessage (Capability *cap, Message *m);
 void sendMessage    (Capability *from_cap, Capability *to_cap, Message *msg);
 #endif
 
+#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"