X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Fcompiler%2FcodeGen%2FCgInfoTbls.hs;h=9ac81bb2e892a5598f3be211bbab3d56993af1a9;hb=644e072887cab9146bf68b99092dd3ec27bc757d;hp=940852d0781995948075cd505e83374307d6e6e6;hpb=d1c1b7d0e7b94ede238845c91f58582bad3b3ef3;p=ghc-hetmet.git

diff --git a/ghc/compiler/codeGen/CgInfoTbls.hs b/ghc/compiler/codeGen/CgInfoTbls.hs
index 940852d..9ac81bb 100644
--- a/ghc/compiler/codeGen/CgInfoTbls.hs
+++ b/ghc/compiler/codeGen/CgInfoTbls.hs
@@ -191,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
@@ -346,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
@@ -394,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