[commit: ghc] master: rts: Fix profiled build after D4529 (ab9e986)
git at git.haskell.org
git at git.haskell.org
Tue Mar 27 13:54:12 UTC 2018
Repository : ssh://git@git.haskell.org/ghc
On branch : master
Link : http://ghc.haskell.org/trac/ghc/changeset/ab9e986e61c3fca3d6842a60a0b0c9625dac11b9/ghc
>---------------------------------------------------------------
commit ab9e986e61c3fca3d6842a60a0b0c9625dac11b9
Author: Ben Gamari <ben at smart-cactus.org>
Date: Mon Mar 26 16:34:06 2018 -0400
rts: Fix profiled build after D4529
>---------------------------------------------------------------
ab9e986e61c3fca3d6842a60a0b0c9625dac11b9
rts/Stats.c | 8 ++++----
rts/Stats.h | 2 ++
2 files changed, 6 insertions(+), 4 deletions(-)
diff --git a/rts/Stats.c b/rts/Stats.c
index 457f50d..3efa6cc 100644
--- a/rts/Stats.c
+++ b/rts/Stats.c
@@ -738,8 +738,8 @@ static void report_summary(const RTSSummaryStats* sum)
#if defined(PROFILING)
statsPrintf(" RP time %7.3fs (%7.3fs elapsed)\n",
- TimeToSecondsDbl(sum->rc_cpu_ns),
- TimeToSecondsDbl(sum->rc_elapsed_ns));
+ TimeToSecondsDbl(sum->rp_cpu_ns),
+ TimeToSecondsDbl(sum->rp_elapsed_ns));
statsPrintf(" PROF time %7.3fs (%7.3fs elapsed)\n",
TimeToSecondsDbl(sum->hc_cpu_ns),
TimeToSecondsDbl(sum->hc_elapsed_ns));
@@ -901,8 +901,8 @@ static void report_machine_readable (const RTSSummaryStats * sum)
#if defined(PROFILING)
MR_STAT("rp_cpu_seconds", "f", TimeToSecondsDbl(sum->rp_cpu_ns));
MR_STAT("rp_wall_seconds", "f", TimeToSecondsDbl(sum->rp_elapsed_ns));
- MR_STAT("hc_cpu_seconds", "f", TimeToSecondsDbl(sum->hp_cpu_ns));
- MR_STAT("hc_wall_seconds", "f", TimeToSecondsDbl(sum->hp_elapsed_ns));
+ MR_STAT("hc_cpu_seconds", "f", TimeToSecondsDbl(sum->hc_cpu_ns));
+ MR_STAT("hc_wall_seconds", "f", TimeToSecondsDbl(sum->hc_elapsed_ns));
#endif
MR_STAT("total_cpu_seconds", "f", TimeToSecondsDbl(stats.cpu_ns));
MR_STAT("total_wall_seconds", "f",
diff --git a/rts/Stats.h b/rts/Stats.h
index 7cd49fc..fbcca11 100644
--- a/rts/Stats.h
+++ b/rts/Stats.h
@@ -9,6 +9,8 @@
#pragma once
#include "GetTime.h"
+#include "sm/GC.h"
+#include "Sparks.h"
#include "BeginPrivate.h"
More information about the ghc-commits
mailing list