X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FSchedule.c;h=c61287f9f9ecb530282e2124a754826d15e2759b;hp=f3d956a99038dbaebd1c00269e0e4e8a220b779a;hb=5598dbc2d946f94ec4253450987d7a56336ef54a;hpb=d7230e532eb485db85d4e446d7fba4192507b3ba

diff --git a/rts/Schedule.c b/rts/Schedule.c
index f3d956a..c61287f 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1813,9 +1813,6 @@ 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_thread_finished_event(t);
-
 #if defined(GRAN)
       endThread(t, CurrentProc); // clean-up the thread
 #elif defined(PARALLEL_HASKELL)