projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fixes to "Retract Hp *before* checking for HpLim==0"
[ghc-hetmet.git]
/
rts
/
RtsStartup.c
diff --git
a/rts/RtsStartup.c
b/rts/RtsStartup.c
index
b9442d2
..
f10de57
100644
(file)
--- a/
rts/RtsStartup.c
+++ b/
rts/RtsStartup.c
@@
-34,6
+34,7
@@
#include "Stable.h"
#include "Hpc.h"
#include "FileLock.h"
#include "Stable.h"
#include "Hpc.h"
#include "FileLock.h"
+#include "EventLog.h"
#if defined(RTS_GTK_FRONTPANEL)
#include "FrontPanel.h"
#if defined(RTS_GTK_FRONTPANEL)
#include "FrontPanel.h"
@@
-195,7
+196,9
@@
hs_init(int *argc, char **argv[])
#endif
/* initTracing must be after setupRtsFlags() */
#endif
/* initTracing must be after setupRtsFlags() */
+#ifdef DEBUG
initTracing();
initTracing();
+#endif
#if defined(PAR)
/* NB: this really must be done after processing the RTS flags */
#if defined(PAR)
/* NB: this really must be done after processing the RTS flags */
@@
-254,6
+257,12
@@
hs_init(int *argc, char **argv[])
initProfiling1();
initProfiling1();
+#ifdef EVENTLOG
+ if (RtsFlags.EventLogFlags.doEventLogging) {
+ initEventLogging();
+ }
+#endif
+
/* start the virtual timer 'subsystem'. */
initTimer();
startTimer();
/* start the virtual timer 'subsystem'. */
initTimer();
startTimer();
@@
-514,6
+523,13
@@
hs_exit_(rtsBool wait_foreign)
if (prof_file != NULL) fclose(prof_file);
#endif
if (prof_file != NULL) fclose(prof_file);
#endif
+#ifdef EVENTLOG
+ if (RtsFlags.EventLogFlags.doEventLogging) {
+ endEventLogging();
+ freeEventLogging();
+ }
+#endif
+
#if defined(TICKY_TICKY)
if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo();
#endif
#if defined(TICKY_TICKY)
if (RtsFlags.TickyFlags.showTickyStats) PrintTickyInfo();
#endif