Implement unboxed sum primitive type
[ghc.git] / compiler / cmm / PprCmmExpr.hs
index 77c9240..219b287 100644 (file)
@@ -53,6 +53,9 @@ instance Outputable CmmExpr where
 instance Outputable CmmReg where
     ppr e = pprReg e
 
+instance Outputable CmmArg where
+    ppr a = pprArg a
+
 instance Outputable CmmLit where
     ppr l = pprLit l
 
@@ -275,5 +278,11 @@ pprGlobalReg gr
 
 -----------------------------------------------------------------------------
 
+pprArg :: CmmArg -> SDoc
+pprArg (CmmExprArg e) = ppr e
+pprArg (CmmRubbishArg ty) = text "Rubbish" <+> dcolon <+> ppr ty
+
+-----------------------------------------------------------------------------
+
 commafy :: [SDoc] -> SDoc
 commafy xs = fsep $ punctuate comma xs