From: simonmar <unknown>
Date: Fri, 18 Mar 2005 11:19:27 +0000 (+0000)
Subject: [project @ 2005-03-18 11:19:27 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~886
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=6a51f7df593cf73f4093bb1948d62db504fa6631;p=ghc-hetmet.git

[project @ 2005-03-18 11:19:27 by simonmar]
merge rev. 1.6.2.1, simplified slightly:

  Initialise a CostCentreStack by generating SIZEOF_CostCentreStack
  (gotten from the C compiler) zeros, padded to the nearest word.
  Improves on the previous fixes for unpredictable padding (see comment).
---

diff --git a/ghc/compiler/codeGen/CgProf.hs b/ghc/compiler/codeGen/CgProf.hs
index 844f1d7..f43982d 100644
--- a/ghc/compiler/codeGen/CgProf.hs
+++ b/ghc/compiler/codeGen/CgProf.hs
@@ -24,6 +24,8 @@ module CgProf (
   ) where
 
 #include "HsVersions.h"
+#include "MachDeps.h"
+ -- For WORD_SIZE_IN_BITS only.
 #include "../includes/Constants.h"
 	-- For LDV_CREATE_MASK, LDV_STATE_USE
 	-- which are StgWords
@@ -312,18 +314,13 @@ emitCostCentreStackDecl
 emitCostCentreStackDecl ccs 
   | Just cc <- maybeSingletonCCS ccs = do
   { let
-     lits = [ zero,
-	      mkCCostCentre cc,
-	      zero,   -- struct _CostCentreStack *prevStack;
-	      zero,   -- struct _IndexTable *indexTable;
-	      zero64, -- StgWord64  scc_count;      
-	      zero,   -- StgWord    selected;       
-	      zero,   -- StgWord    time_ticks;     
-	      zero64, -- StgWord64  mem_alloc;      
-	      zero64, -- StgWord64  inherited_alloc;
-	      zero,   -- StgWord    inherited_ticks;
-	      zero    -- CostCentre *root;
-	   ]
+	-- Note: to avoid making any assumptions about how the
+	-- C compiler (that compiles the RTS, in particular) does
+	-- layouts of structs containing long-longs, simply
+	-- pad out the struct with zero words until we hit the
+	-- size of the overall struct (which we get via DerivedConstants.h)
+	--
+     lits = zero : mkCCostCentre cc : replicate (sizeof_ccs_words - 2) zero
   ; emitDataLits (mkCCSLabel ccs) lits
   }
   | otherwise = pprPanic "emitCostCentreStackDecl" (ppr ccs)
@@ -331,6 +328,13 @@ emitCostCentreStackDecl ccs
 zero = mkIntCLit 0
 zero64 = CmmInt 0 I64
 
+sizeof_ccs_words :: Int
+sizeof_ccs_words 
+    -- round up to the next word.
+  | ms == 0   = ws
+  | otherwise = ws + 1
+  where
+   (ws,ms) = SIZEOF_CostCentreStack `divMod` wORD_SIZE
 
 -- ---------------------------------------------------------------------------
 -- Registering CCs and CCSs