summaryrefslogtreecommitdiff
path: root/rts/RtsStartup.c
diff options
context:
space:
mode:
Diffstat (limited to 'rts/RtsStartup.c')
-rw-r--r--rts/RtsStartup.c6
1 files changed, 3 insertions, 3 deletions
diff --git a/rts/RtsStartup.c b/rts/RtsStartup.c
index 5cad851b80..371c96d08c 100644
--- a/rts/RtsStartup.c
+++ b/rts/RtsStartup.c
@@ -300,8 +300,8 @@ hs_init_ghc(int *argc, char **argv[], RtsConfig rts_config)
initScheduler();
/* Trace some basic information about the process */
- traceWallClockTime();
- traceOSProcessInfo();
+ traceInitEvent(traceWallClockTime);
+ traceInitEvent(traceOSProcessInfo);
flushTrace();
/* initialize the storage manager */
@@ -370,7 +370,7 @@ hs_init_ghc(int *argc, char **argv[], RtsConfig rts_config)
#if defined(PROFILING)
initProfiling();
#endif
- dumpIPEToEventLog();
+ traceInitEvent(dumpIPEToEventLog);
initHeapProfiling();
/* start the virtual timer 'subsystem'. */