More CPP removal: pprDynamicLinkerAsmLabel in CLabel
[ghc.git] / compiler / codeGen / CgInfoTbls.hs
index 92db95e..305081d 100644 (file)
@@ -38,6 +38,7 @@ import Unique
 import StaticFlags
 
 import Constants
+import DynFlags
 import Util
 import Outputable
 
@@ -160,6 +161,8 @@ is not present in the list (it is always assumed).
 -}
 mkStackLayout :: FCode [Maybe LocalReg]
 mkStackLayout = do
+  dflags <- getDynFlags
+  let platform = targetPlatform dflags
   StackUsage { realSp = real_sp,
                frameSp = frame_sp } <- getStkUsage
   binds <- getLiveStackBindings
@@ -169,7 +172,7 @@ mkStackLayout = do
                     | (offset, b) <- binds]
 
   WARN( not (all (\bind -> fst bind >= 0) rel_binds),
-       ppr binds $$ ppr rel_binds $$
+        pprPlatform platform binds $$ pprPlatform platform rel_binds $$
         ppr frame_size $$ ppr real_sp $$ ppr frame_sp )
     return $ stack_layout rel_binds frame_size