+pprHinted :: Outputable a => (a, MachHint) -> SDoc
+pprHinted (a, NoHint) = ppr a
+pprHinted (a, PtrHint) = quotes(text "address") <+> ppr a
+pprHinted (a, SignedHint) = quotes(text "signed") <+> ppr a
+pprHinted (a, FloatHint) = quotes(text "float") <+> ppr a
+