More CPP removal: pprDynamicLinkerAsmLabel in CLabel
[ghc.git] / compiler / codeGen / StgCmmTicky.hs
index 1224ad1..88ff138 100644 (file)
@@ -88,7 +88,12 @@ staticTickyHdr = []
 emitTickyCounter :: ClosureInfo -> [Id] -> FCode ()
 emitTickyCounter cl_info args
   = ifTicky $
-    do { mod_name <- getModuleName
+    do { dflags <- getDynFlags
+        ; mod_name <- getModuleName
+        ; let platform = targetPlatform dflags
+              ticky_ctr_label = closureRednCountsLabel platform cl_info
+              arg_descr = map (showTypeCategory . idType) args
+              fun_descr mod_name = ppr_for_ticky_name mod_name (closureName cl_info)
        ; fun_descr_lit <- newStringCLit (fun_descr mod_name)
        ; arg_descr_lit <- newStringCLit arg_descr
        ; emitDataLits ticky_ctr_label  -- Must match layout of StgEntCounter
@@ -104,10 +109,6 @@ emitTickyCounter cl_info args
              zeroCLit,                 -- Allocs
              zeroCLit                  -- Link
            ] }
-  where
-    ticky_ctr_label = closureRednCountsLabel cl_info
-    arg_descr = map (showTypeCategory . idType) args
-    fun_descr mod_name = ppr_for_ticky_name mod_name (closureName cl_info)
 
 -- When printing the name of a thing in a ticky file, we want to
 -- give the module name even for *local* things.   We print