From 0c4769e61ce3b9c59c5548dd784db826bc708af3 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 18 Feb 2000 10:25:53 +0000
Subject: [PATCH] [project @ 2000-02-18 10:25:53 by simonmar] Module size
wasn't taking into account the data section.
---
glafp-utils/nofib-analyse/Slurp.hs | 4 ++--
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/glafp-utils/nofib-analyse/Slurp.hs b/glafp-utils/nofib-analyse/Slurp.hs
index 92a0529c404e..2f11a7df7f2a 100644
--- a/glafp-utils/nofib-analyse/Slurp.hs
+++ b/glafp-utils/nofib-analyse/Slurp.hs
@@ -1,5 +1,5 @@
-----------------------------------------------------------------------------
--- $Id: Slurp.hs,v 1.1 1999/11/12 11:54:17 simonmar Exp $
+-- $Id: Slurp.hs,v 1.2 2000/02/18 10:25:53 simonmar Exp $
-- (c) Simon Marlow 1997-1999
-----------------------------------------------------------------------------
@@ -348,7 +348,7 @@ parse_size prog mod (l:ls) =
Just (read text + read datas),
compile_status = Success})]
| otherwise ->
- let ms = addToFM emptyFM mod (read text)
+ let ms = addToFM emptyFM mod (read text + read datas)
in
[(prog,emptyResults{module_size = ms})]
--
GitLab