maybeLetNoEscape,
) where
-#include "HsVersions.h"
-
import CgMonad
import CgHeapery
import CgStackery
\begin{code}
instance Outputable CgIdInfo where
ppr (CgIdInfo id rep vol stb lf _) -- TODO, pretty pring the tag info
- = ppr id <+> ptext SLIT("-->") <+> vcat [ppr vol, ppr stb]
+ = ppr id <+> ptext (sLit "-->") <+> vcat [ppr vol, ppr stb]
instance Outputable VolatileLoc where
ppr NoVolatileLoc = empty
- ppr (RegLoc r) = ptext SLIT("reg") <+> ppr r
- ppr (VirHpLoc v) = ptext SLIT("vh") <+> ppr v
- ppr (VirNodeLoc v) = ptext SLIT("vn") <+> ppr v
+ ppr (RegLoc r) = ptext (sLit "reg") <+> ppr r
+ ppr (VirHpLoc v) = ptext (sLit "vh") <+> ppr v
+ ppr (VirNodeLoc v) = ptext (sLit "vn") <+> ppr v
instance Outputable StableLoc where
ppr NoStableLoc = empty
- ppr VoidLoc = ptext SLIT("void")
- ppr (VirStkLoc v) = ptext SLIT("vs") <+> ppr v
- ppr (VirStkLNE v) = ptext SLIT("lne") <+> ppr v
- ppr (StableLoc a) = ptext SLIT("amode") <+> ppr a
+ ppr VoidLoc = ptext (sLit "void")
+ ppr (VirStkLoc v) = ptext (sLit "vs") <+> ppr v
+ ppr (VirStkLNE v) = ptext (sLit "lne") <+> ppr v
+ ppr (StableLoc a) = ptext (sLit "amode") <+> ppr a
\end{code}
%************************************************************************
srt <- getSRTLabel
pprPanic "cgPanic"
(vcat [ppr id,
- ptext SLIT("static binds for:"),
+ ptext (sLit "static binds for:"),
vcat [ ppr (cg_id info) | info <- varEnvElts static_binds ],
- ptext SLIT("local binds for:"),
+ ptext (sLit "local binds for:"),
vcat [ ppr (cg_id info) | info <- varEnvElts local_binds ],
- ptext SLIT("SRT label") <+> pprCLabel srt
+ ptext (sLit "SRT label") <+> pprCLabel srt
])
\end{code}