From: simonmar <unknown>
Date: Fri, 13 Aug 2004 13:26:37 +0000 (+0000)
Subject: [project @ 2004-08-13 13:26:37 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~1745
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d3c66cccbc597bad50fea6cea968e809440899a6;p=ghc-hetmet.git

[project @ 2004-08-13 13:26:37 by simonmar]
sIZEOF_StgFunInfoExtra ==> sIZEOF_StgFunInfoExtraRev
---

diff --git a/ghc/compiler/codeGen/CgInfoTbls.hs b/ghc/compiler/codeGen/CgInfoTbls.hs
index 2f10073..488c513 100644
--- a/ghc/compiler/codeGen/CgInfoTbls.hs
+++ b/ghc/compiler/codeGen/CgInfoTbls.hs
@@ -58,7 +58,7 @@ import Unique		( Uniquable(..) )
 import CmdLineOpts	( opt_SccProfilingOn )
 import ListSetOps	( assocDefault )
 import Maybes		( isJust )
-import Constants	( wORD_SIZE, sIZEOF_StgFunInfoExtra )
+import Constants	( wORD_SIZE, sIZEOF_StgFunInfoExtraRev )
 import Outputable
 
 
@@ -461,7 +461,7 @@ funInfoTable :: CmmExpr -> CmmExpr
 -- in the info table.
 funInfoTable info_ptr
   | tablesNextToCode
-  = cmmOffsetB info_ptr (- stdInfoTableSizeB - sIZEOF_StgFunInfoExtra)
+  = cmmOffsetB info_ptr (- stdInfoTableSizeB - sIZEOF_StgFunInfoExtraRev)
   | otherwise
   = cmmOffsetW info_ptr (1 + stdInfoTableSizeW)
 				-- Past the entry code pointer