From 2a71495216c738489e2289dc1a2d3a0c46c29576 Mon Sep 17 00:00:00 2001
From: Andreas Klebinger <klebinger.andreas@gmx.at>
Date: Sat, 17 Sep 2022 10:31:15 +0200
Subject: [PATCH] Report code size for nofib-compare.
---
shake/compare/Compare.hs | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/shake/compare/Compare.hs b/shake/compare/Compare.hs
index e91e3d0b..3af63380 100644
--- a/shake/compare/Compare.hs
+++ b/shake/compare/Compare.hs
@@ -264,6 +264,7 @@ main = do
tabulate "compiler GC (cpu) time" $ objectCompilerRtsStats <* "GC_cpu_seconds"
tabulate "compiler GC (wall) time" $ objectCompilerRtsStats <* "GC_wall_seconds"
tabulate "executable size" $ testName <* "executable size"
+ tabulate "code size (.text)" $ objectCompilerSize
-- run-time metrics
tabulate "bytes allocated" $ runRtsStats <* "bytes allocated"
tabulate "mutator time" $ runRtsStats <* ("mutator_cpu_seconds" <|> "mut_cpu_seconds")
@@ -296,6 +297,9 @@ testName = wildcard
objectCompilerRtsStats :: LabelMatcher (TestName, ModuleName)
objectCompilerRtsStats = (,) <$> testName <* "objects" <*> wildcard <* "rts stats"
+objectCompilerSize :: LabelMatcher (TestName,ModuleName)
+objectCompilerSize = (,) <$> testName <* "objects" <*> wildcard <* "size"
+
runRtsStats :: LabelMatcher TestName
runRtsStats = testName <* "run" <* "rts stats"
--
GitLab