diff --git a/compiler/GHC/CmmToAsm/Ppr.hs b/compiler/GHC/CmmToAsm/Ppr.hs index 45b0545059e97be1b148c7e0b3e4bc6c4234f30f..967391d25f87a9bf4f7a5036df8d0e8bb9a986ff 100644 --- a/compiler/GHC/CmmToAsm/Ppr.hs +++ b/compiler/GHC/CmmToAsm/Ppr.hs @@ -246,9 +246,10 @@ pprGNUSectionHeader config t suffix = panic "PprBase.pprGNUSectionHeader: unknown section type" flags = case t of Text - | OSMinGW32 <- platformOS platform + | OSMinGW32 <- platformOS platform, splitSections -> text ",\"xr\"" - | otherwise -> text ",\"ax\"," <> sectionType platform "progbits" + | splitSections + -> text ",\"ax\"," <> sectionType platform "progbits" CString | OSMinGW32 <- platformOS platform -> empty