[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