CmmReg reg -> ppr reg
CmmRegOff reg off -> parens (ppr reg <+> char '+' <+> int off)
CmmMachOp mop args -> genMachOp mop args
- e -> parens (pprExpr e)
genMachOp :: MachOp -> [CmmExpr] -> SDoc
genMachOp mop args
MO_Xor _ -> Just $ char '^'
MO_Not _ -> Just $ char '~'
MO_S_Neg _ -> Just $ char '-' -- there is no unsigned neg :)
- MO_Not _ -> Just $ char '~'
_ -> Nothing
-- --------------------------------------------------------------------------
BaseReg -> ptext SLIT("BaseReg")
PicBaseReg -> ptext SLIT("PicBaseReg")
- _ -> panic $ "PprCmm.pprGlobalReg: unknown global reg"
-
-- --------------------------------------------------------------------------
-- data sections
--