X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FRtsStartup.c;fp=rts%2FRtsStartup.c;h=b85b15305f8e41faae8287881085d850692624da;hp=afa38aaf2c0cdc9433336f848906be943577f741;hb=015d3d46b6de2f95386a515a7d166d996a0416db;hpb=dcba7784a1af5fd0c054031c49fe159d69af4f86

diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index afa38aa..b85b153 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -149,6 +149,9 @@ hs_init(int *argc, char **argv[])
 #ifdef TRACING
     initTracing();
 #endif
+    /* Dtrace events are always enabled
+     */
+    dtraceEventStartup();
 
     /* initialise scheduler data structures (needs to be done before
      * initStorage()).