diff options
Diffstat (limited to 'compiler/GHC/Cmm/Reg.hs')
| -rw-r--r-- | compiler/GHC/Cmm/Reg.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/compiler/GHC/Cmm/Reg.hs b/compiler/GHC/Cmm/Reg.hs index 6c94ecb2eb..a9b3fce101 100644 --- a/compiler/GHC/Cmm/Reg.hs +++ b/compiler/GHC/Cmm/Reg.hs @@ -12,6 +12,7 @@ module GHC.Cmm.Reg , localRegType -- * Global registers , GlobalReg(..), isArgReg, globalRegType + , pprGlobalReg , spReg, hpReg, spLimReg, hpLimReg, nodeReg , currentTSOReg, currentNurseryReg, hpAllocReg, cccsReg , node, baseReg @@ -296,7 +297,7 @@ instance Outputable GlobalReg where instance OutputableP env GlobalReg where pdoc _ = ppr -pprGlobalReg :: GlobalReg -> SDoc +pprGlobalReg :: IsLine doc => GlobalReg -> doc pprGlobalReg gr = case gr of VanillaReg n _ -> char 'R' <> int n @@ -324,6 +325,8 @@ pprGlobalReg gr GCFun -> text "stg_gc_fun" BaseReg -> text "BaseReg" PicBaseReg -> text "PicBaseReg" +{-# SPECIALIZE pprGlobalReg :: GlobalReg -> SDoc #-} +{-# SPECIALIZE pprGlobalReg :: GlobalReg -> HLine #-} -- see Note [SPECIALIZE to HDoc] in GHC.Utils.Outputable -- convenient aliases |