diff options
| author | Cheng Shao <astrohavoc@gmail.com> | 2022-08-04 15:14:00 +0000 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-08-04 23:01:45 -0400 |
| commit | 6c7cd50fb38f4038f6a5e2d11a5e2bf1ae93ceff (patch) | |
| tree | a771fedbdc28ff88995707e0fbafd0bd66320f18 /compiler/GHC/CmmToAsm | |
| parent | 1d94a59fbadd56efec78680c89946eb425eef418 (diff) | |
| download | haskell-6c7cd50fb38f4038f6a5e2d11a5e2bf1ae93ceff.tar.gz | |
cmm: Remove unused ReadOnlyData16
We don't actually emit rodata16 sections anywhere.
Diffstat (limited to 'compiler/GHC/CmmToAsm')
| -rw-r--r-- | compiler/GHC/CmmToAsm/PPC/Ppr.hs | 1 | ||||
| -rw-r--r-- | compiler/GHC/CmmToAsm/Ppr.hs | 5 | ||||
| -rw-r--r-- | compiler/GHC/CmmToAsm/X86/Ppr.hs | 4 |
3 files changed, 0 insertions, 10 deletions
diff --git a/compiler/GHC/CmmToAsm/PPC/Ppr.hs b/compiler/GHC/CmmToAsm/PPC/Ppr.hs index c0b2385b3c..b1d141fb3f 100644 --- a/compiler/GHC/CmmToAsm/PPC/Ppr.hs +++ b/compiler/GHC/CmmToAsm/PPC/Ppr.hs @@ -295,7 +295,6 @@ pprAlignForSection platform seg = UninitialisedData | ppc64 -> text ".align 3" | otherwise -> text ".align 2" - ReadOnlyData16 -> text ".align 4" -- TODO: This is copied from the ReadOnlyData case, but it can likely be -- made more efficient. InitArray -> text ".align 3" diff --git a/compiler/GHC/CmmToAsm/Ppr.hs b/compiler/GHC/CmmToAsm/Ppr.hs index 0379ed6464..5bda8d7a01 100644 --- a/compiler/GHC/CmmToAsm/Ppr.hs +++ b/compiler/GHC/CmmToAsm/Ppr.hs @@ -224,9 +224,6 @@ pprGNUSectionHeader config t suffix = -> text ".rdata$rel.ro" | otherwise -> text ".data.rel.ro" UninitialisedData -> text ".bss" - ReadOnlyData16 | OSMinGW32 <- platformOS platform - -> text ".rdata$cst16" - | otherwise -> text ".rodata.cst16" InitArray | OSMinGW32 <- platformOS platform -> text ".ctors" @@ -256,7 +253,6 @@ pprXcoffSectionHeader t = case t of Data -> text ".csect .data[RW]" ReadOnlyData -> text ".csect .text[PR] # ReadOnlyData" RelocatableReadOnlyData -> text ".csect .text[PR] # RelocatableReadOnlyData" - ReadOnlyData16 -> text ".csect .text[PR] # ReadOnlyData16" CString -> text ".csect .text[PR] # CString" UninitialisedData -> text ".csect .data[BS]" _ -> panic "pprXcoffSectionHeader: unknown section type" @@ -268,7 +264,6 @@ pprDarwinSectionHeader t = case t of ReadOnlyData -> text ".const" RelocatableReadOnlyData -> text ".const_data" UninitialisedData -> text ".data" - ReadOnlyData16 -> text ".const" InitArray -> text ".section\t__DATA,__mod_init_func,mod_init_funcs" FiniArray -> panic "pprDarwinSectionHeader: fini not supported" CString -> text ".section\t__TEXT,__cstring,cstring_literals" diff --git a/compiler/GHC/CmmToAsm/X86/Ppr.hs b/compiler/GHC/CmmToAsm/X86/Ppr.hs index 49b6988c1d..4cbfb62f0a 100644 --- a/compiler/GHC/CmmToAsm/X86/Ppr.hs +++ b/compiler/GHC/CmmToAsm/X86/Ppr.hs @@ -487,12 +487,10 @@ pprAlignForSection platform seg = OSDarwin | target32Bit platform -> case seg of - ReadOnlyData16 -> int 4 CString -> int 1 _ -> int 2 | otherwise -> case seg of - ReadOnlyData16 -> int 4 CString -> int 1 _ -> int 3 -- Other: alignments are given as bytes. @@ -500,12 +498,10 @@ pprAlignForSection platform seg = | target32Bit platform -> case seg of Text -> text "4,0x90" - ReadOnlyData16 -> int 16 CString -> int 1 _ -> int 4 | otherwise -> case seg of - ReadOnlyData16 -> int 16 CString -> int 1 _ -> int 8 |