X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTrace.c;h=53fc25a249fa1fd65bcfca90c20a48474b2bd95e;hb=209e093599d0d4db5487d124895d817c55b7c052;hp=be3fff72d4cb3bc48098e8658ecd75bf3819e1ef;hpb=ab6d5c717abc8d6918c891a646e9f1c403355483;p=ghc-hetmet.git

diff --git a/rts/Trace.c b/rts/Trace.c
index be3fff7..53fc25a 100644
--- a/rts/Trace.c
+++ b/rts/Trace.c
@@ -106,6 +106,14 @@ void freeTracing (void)
     }
 }
 
+void resetTracing (void)
+{
+    if (eventlog_enabled) {
+        abortEventLogging(); // abort eventlog inherited from parent
+        initEventLogging(); // child starts its own eventlog
+    }
+}
+
 /* ---------------------------------------------------------------------------
    Emitting trace messages/events
  --------------------------------------------------------------------------- */