[project @ 2004-08-13 13:26:37 by simonmar]

[ghc-hetmet.git] / ghc / compiler / codeGen / CgInfoTbls.hs

diff --git a/ghc/compiler/codeGen/CgInfoTbls.hs b/ghc/compiler/codeGen/CgInfoTbls.hs
index 2f10073..488c513 100644 (file)
--- 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