Annotate thread stop events with the owner of the black hole

[ghc-hetmet.git] / rts / Messages.h

diff --git a/rts/Messages.h b/rts/Messages.h
index febb839..4121364 100644 (file)
--- a/rts/Messages.h
+++ b/rts/Messages.h
@@ -9,6 +9,7 @@
 #include "BeginPrivate.h"
 
 nat messageBlackHole(Capability *cap, MessageBlackHole *msg);
+StgTSO * blackHoleOwner (StgClosure *bh);
 
 #ifdef THREADED_RTS
 void executeMessage (Capability *cap, Message *m);