diff options
Diffstat (limited to 'compiler/GHC/Llvm/Ppr.hs')
| -rw-r--r-- | compiler/GHC/Llvm/Ppr.hs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/compiler/GHC/Llvm/Ppr.hs b/compiler/GHC/Llvm/Ppr.hs index f48e7aa034..787b6efcf7 100644 --- a/compiler/GHC/Llvm/Ppr.hs +++ b/compiler/GHC/Llvm/Ppr.hs @@ -517,8 +517,8 @@ ppName opts v = case v of ppPlainName :: LlvmCgConfig -> LlvmVar -> SDoc ppPlainName opts v = case v of (LMGlobalVar x _ _ _ _ _) -> ftext x - (LMLocalVar x LMLabel ) -> text (show x) - (LMLocalVar x _ ) -> text ('l' : show x) + (LMLocalVar x LMLabel ) -> pprUniqueAlways x + (LMLocalVar x _ ) -> char 'l' <> pprUniqueAlways x (LMNLocalVar x _ ) -> ftext x (LMLitVar x ) -> ppLit opts x |