diff options
author | Krzysztof Gogolewski <krzysztof.gogolewski@tweag.io> | 2022-09-16 17:40:51 +0200 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-09-22 09:26:05 -0400 |
commit | 615e22789a04e74d7e02239b4580b95b077c3ae0 (patch) | |
tree | 01ddd6e717b2f4dc2e17ac293546dd8a1a781ab8 /compiler/GHC/CmmToAsm.hs | |
parent | 9034fadaf641c3821db6e066faaf1a62ed236c13 (diff) | |
download | haskell-615e22789a04e74d7e02239b4580b95b077c3ae0.tar.gz |
Minor refactor around Outputable
* Replace 'text . show' and 'ppr' with 'int'.
* Remove Outputable.hs-boot, no longer needed
* Use pprWithCommas
* Factor out instructions in AArch64 codegen
Diffstat (limited to 'compiler/GHC/CmmToAsm.hs')
-rw-r--r-- | compiler/GHC/CmmToAsm.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/CmmToAsm.hs b/compiler/GHC/CmmToAsm.hs index e0b516bd40..8932a48cc6 100644 --- a/compiler/GHC/CmmToAsm.hs +++ b/compiler/GHC/CmmToAsm.hs @@ -386,7 +386,7 @@ cmmNativeGens logger config ncgImpl h dbgMap = go let newFileIds = sortBy (comparing snd) $ nonDetEltsUFM $ fileIds' `minusUFM` fileIds -- See Note [Unique Determinism and code generation] - pprDecl (f,n) = text "\t.file " <> ppr n <+> + pprDecl (f,n) = text "\t.file " <> int n <+> pprFilePathString (unpackFS f) emitNativeCode logger config h $ vcat $ |