X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FSchedule.c;h=0b1dec40856bed27083c24d1ba968b6d79aff5aa;hb=4d8c7c976104d2e39a1183967ec0f254a0fc0a47;hp=bf39c0ac1436d803ba099733629b2b1e09edc621;hpb=a278f3f02d09bc32b0a75d4a04d710090cde250f;p=ghc-hetmet.git

diff --git a/rts/Schedule.c b/rts/Schedule.c
index bf39c0a..0b1dec4 100644
--- a/rts/Schedule.c
+++ b/rts/Schedule.c
@@ -1566,11 +1566,11 @@ forkProcess(HsStablePtr *entry
         initMutex(&cap->running_task->lock);
 #endif
 
-#if defined(TRACING)
-        abortEventLogging(); // abort eventlog inherited from parent
-        initEventLogging(); // child starts its own eventlog
+#ifdef TRACING
+        resetTracing();
 #endif
-	// Now, all OS threads except the thread that forked are
+
+        // Now, all OS threads except the thread that forked are
 	// stopped.  We need to stop all Haskell threads, including
 	// those involved in foreign calls.  Also we need to delete
 	// all Tasks, because they correspond to OS threads that are