Allow the number of capabilities to be increased at runtime (#3729)
[ghc.git] / rts / Trace.c
index 1671bfe..df5147c 100644 (file)
@@ -143,6 +143,13 @@ void resetTracing (void)
     }
 }
 
+void tracingAddCapapilities (nat from, nat to)
+{
+    if (eventlog_enabled) {
+        moreCapEventBufs(from,to);
+    }
+}
+
 /* ---------------------------------------------------------------------------
    Emitting trace messages/events
  --------------------------------------------------------------------------- */