More CPP removal: pprDynamicLinkerAsmLabel in CLabel
[ghc.git] / compiler / deSugar / Coverage.lhs
index 6f2e08a..abb8948 100644 (file)
@@ -21,6 +21,7 @@ import VarSet
 import Data.List
 import FastString
 import HscTypes        
+import Platform
 import StaticFlags
 import TyCon
 import MonadUtils
@@ -895,9 +896,9 @@ static void hpc_init_Main(void)
  hs_hpc_module("Main",8,1150288664,_hpc_tickboxes_Main_hpc);}
 
 \begin{code}
-hpcInitCode :: Module -> HpcInfo -> SDoc
-hpcInitCode _ (NoHpcInfo {}) = empty
-hpcInitCode this_mod (HpcInfo tickCount hashNo)
+hpcInitCode :: Platform -> Module -> HpcInfo -> SDoc
+hpcInitCode _ (NoHpcInfo {}) = empty
+hpcInitCode platform this_mod (HpcInfo tickCount hashNo)
  = vcat
     [ text "static void hpc_init_" <> ppr this_mod
          <> text "(void) __attribute__((constructor));"
@@ -915,7 +916,7 @@ hpcInitCode this_mod (HpcInfo tickCount hashNo)
        ])
     ]
   where
-    tickboxes = pprCLabel (mkHpcTicksLabel $ this_mod)
+    tickboxes = pprCLabel platform (mkHpcTicksLabel $ this_mod)
 
     module_name  = hcat (map (text.charToC) $
                          bytesFS (moduleNameFS (Module.moduleName this_mod)))