X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=rts%2FSchedule.c;h=8ebedd4279f4d897e286efc7aadeeda9f0e9fd2a;hb=80578b7defea703ad24efa908534a13e2ebc880b;hp=c61e623a03a7a4a2e8d0cc38ff985e005d04173c;hpb=6ffb1cec5bc6fcc834547fc456322d2eb2418ff6;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index c61e623..8ebedd4 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1808,6 +1808,9 @@ scheduleHandleThreadFinished (Capability *cap STG_UNUSED, Task *task, StgTSO *t)
     debugTrace(DEBUG_sched, "--++ thread %lu (%s) finished", 
 	       (unsigned long)t->id, whatNext_strs[t->what_next]);
 
+    /* Inform the Hpc that a thread has finished */
+    hs_hpc_event("Thread Finished",t);
+
 #if defined(GRAN)
       endThread(t, CurrentProc); // clean-up the thread
 #elif defined(PARALLEL_HASKELL)