X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2FabsCSyn%2FPprAbsC.lhs;h=3259aca6760a3b0a4ad74cb286b567e6cbb169ee;hb=9a972425548b14c2267e4a82fa1525314ebd7b06;hp=c08740cdd54b15874fca4d676d03afdcda59bb80;hpb=8c086331fdf6977aea94b69337ed4c9723b6de19;p=ghc-hetmet.git

diff --git a/ghc/compiler/absCSyn/PprAbsC.lhs b/ghc/compiler/absCSyn/PprAbsC.lhs
index c08740c..3259aca 100644
--- a/ghc/compiler/absCSyn/PprAbsC.lhs
+++ b/ghc/compiler/absCSyn/PprAbsC.lhs
@@ -592,9 +592,10 @@ pprAbsC stmt@(CRetVector lbl amodes srt liveness) _
 		      (ptext SLIT("RET_VEC_BIG"))
 
 
-pprAbsC stmt@(CModuleInitBlock lbl code) _
+pprAbsC stmt@(CModuleInitBlock plain_lbl lbl code) _
   = vcat [
-	ptext SLIT("START_MOD_INIT") <> parens (pprCLabel lbl),
+	ptext SLIT("START_MOD_INIT") <> 
+	    parens (pprCLabel plain_lbl <> comma <> pprCLabel lbl),
 	case (pprTempAndExternDecls stmt) of { (_, pp_exts) -> pp_exts },
 	pprAbsC code (costs code),
 	hcat [ptext SLIT("END_MOD_INIT"), lparen, rparen]
@@ -1708,7 +1709,7 @@ ppr_decls_AbsC (CSRT _ closure_lbls)
 
 ppr_decls_AbsC (CRetDirect     _ code _ _)   = ppr_decls_AbsC code
 ppr_decls_AbsC (CRetVector _ amodes _ _)     = ppr_decls_Amodes amodes
-ppr_decls_AbsC (CModuleInitBlock _ code)     = ppr_decls_AbsC code
+ppr_decls_AbsC (CModuleInitBlock _ _ code)   = ppr_decls_AbsC code
 
 ppr_decls_AbsC (_) = returnTE (Nothing, Nothing)
 \end{code}