More CPP removal: pprDynamicLinkerAsmLabel in CLabel
[ghc.git] / compiler / nativeGen / X86 / CodeGen.hs
index afd077b..aef7897 100644 (file)
@@ -401,7 +401,8 @@ iselExpr64 (CmmMachOp (MO_UU_Conv _ W64) [expr]) = do
             )
 
 iselExpr64 expr
-   = pprPanic "iselExpr64(i386)" (ppr expr)
+   = do dflags <- getDynFlagsNat
+        pprPanic "iselExpr64(i386)" (pprPlatform (targetPlatform dflags) expr)
 
 
 --------------------------------------------------------------------------------
@@ -884,7 +885,8 @@ getRegister' _ (CmmLit lit)
     in
         return (Any size code)
 
-getRegister' _ other = pprPanic "getRegister(x86)" (ppr other)
+getRegister' _ other = do dflags <- getDynFlagsNat
+                          pprPanic "getRegister(x86)" (pprPlatform (targetPlatform dflags) other)
 
 
 intLoadCode :: (Operand -> Operand -> Instr) -> CmmExpr
@@ -1221,9 +1223,11 @@ getCondCode (CmmMachOp mop [x, y])
       MO_U_Lt _ -> condIntCode LU  x y
       MO_U_Le _ -> condIntCode LEU x y
 
-      _other -> pprPanic "getCondCode(x86,x86_64,sparc)" (ppr (CmmMachOp mop [x,y]))
+      _other -> do dflags <- getDynFlagsNat
+                   pprPanic "getCondCode(x86,x86_64,sparc)" (pprPlatform (targetPlatform dflags) (CmmMachOp mop [x,y]))
 
-getCondCode other =  pprPanic "getCondCode(2)(x86,sparc)" (ppr other)
+getCondCode other = do dflags <- getDynFlagsNat
+                       pprPanic "getCondCode(2)(x86,sparc)" (pprPlatform (targetPlatform dflags) other)