Remove StgRubbishArg and CmmArg
[ghc.git] / compiler / cmm / CmmUtils.hs
index e9f2612..b82f780 100644 (file)
@@ -10,7 +10,7 @@
 
 module CmmUtils(
         -- CmmType
-        primRepCmmType, slotCmmType, slotForeignHint, cmmArgType,
+        primRepCmmType, slotCmmType, slotForeignHint,
         typeCmmType, typeForeignHint,
 
         -- CmmLit
@@ -127,10 +127,6 @@ primElemRepCmmType DoubleElemRep = f64
 typeCmmType :: DynFlags -> UnaryType -> CmmType
 typeCmmType dflags ty = primRepCmmType dflags (typePrimRep ty)
 
-cmmArgType :: DynFlags -> CmmArg -> CmmType
-cmmArgType dflags (CmmExprArg e)     = cmmExprType dflags e
-cmmArgType dflags (CmmRubbishArg ty) = typeCmmType dflags ty
-
 primRepForeignHint :: PrimRep -> ForeignHint
 primRepForeignHint VoidRep      = panic "primRepForeignHint:VoidRep"
 primRepForeignHint PtrRep       = AddrHint