change dirty_MUT_VAR() to use recordMutableCap()

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

diff --git a/ghc/compiler/codeGen/CgInfoTbls.hs b/ghc/compiler/codeGen/CgInfoTbls.hs
index 2183d89..9ac81bb 100644 (file)
--- a/ghc/compiler/codeGen/CgInfoTbls.hs
+++ b/ghc/compiler/codeGen/CgInfoTbls.hs
@@ -57,7 +57,8 @@ import StgSyn         ( SRT(..) )
 import Name            ( Name )
 import DataCon         ( DataCon, dataConTag, fIRST_TAG )
 import Unique          ( Uniquable(..) )
-import CmdLineOpts     ( opt_SccProfilingOn, DynFlags(..), HscTarget(..) )
+import DynFlags                ( DynFlags(..), HscTarget(..) )
+import StaticFlags     ( opt_SccProfilingOn )
 import ListSetOps      ( assocDefault )
 import Maybes          ( isJust )
 import Constants       ( wORD_SIZE, sIZEOF_StgFunInfoExtraRev )
@@ -190,9 +191,9 @@ mkFunGenInfoExtraBits fun_type arity srt_label liveness slow_entry
 --                     <srt slot>
 --                     <forward vector table>
 --
--- * The vector table is only present for vectored returns
+--  * The vector table is only present for vectored returns
 --
--- * The SRT slot is only there if either
+--  * The SRT slot is only there if either
 --     (a) there is SRT info to record, OR
 --     (b) if the return is vectored
 --   The latter (b) is necessary so that the vector is in a
@@ -345,7 +346,7 @@ emitDirectReturnInstr
   = do         { info_amode <- getSequelAmode
        ; stmtC (CmmJump (entryCode info_amode) []) }
 
-emitVectoredReturnInstr :: CmmExpr     -- *Zero-indexed* constructor tag
+emitVectoredReturnInstr :: CmmExpr     -- _Zero-indexed_ constructor tag
                        -> Code
 emitVectoredReturnInstr zero_indexed_tag
   = do { info_amode <- getSequelAmode
@@ -393,7 +394,7 @@ mkStdInfoTable type_descr closure_descr cl_type srt_len layout_lit
 
  where  
     prof_info 
-       | opt_SccProfilingOn = [closure_descr, type_descr]
+       | opt_SccProfilingOn = [type_descr, closure_descr]
        | otherwise          = []
 
     type_lit = packHalfWordsCLit cl_type srt_len