diff options
Diffstat (limited to 'compiler/utils/AsmUtils.hs')
| -rw-r--r-- | compiler/utils/AsmUtils.hs | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/compiler/utils/AsmUtils.hs b/compiler/utils/AsmUtils.hs index 591b53dc31..d3393d71e2 100644 --- a/compiler/utils/AsmUtils.hs +++ b/compiler/utils/AsmUtils.hs @@ -12,9 +12,10 @@ import GHC.Platform import Outputable -- | Generate a section type (e.g. @\@progbits@). See #13937. -sectionType :: String -- ^ section type - -> SDoc -- ^ pretty assembler fragment -sectionType ty = sdocWithPlatform $ \platform -> +sectionType :: Platform -- ^ Target platform + -> String -- ^ section type + -> SDoc -- ^ pretty assembler fragment +sectionType platform ty = case platformArch platform of ArchARM{} -> char '%' <> text ty _ -> char '@' <> text ty |