Matthew Pickering pushed to branch wip/stable-ipe-info at Glasgow Haskell Compiler / GHC
Commits:
-
0317f061
by Matthew Pickering at 2025-07-01T19:29:46+01:00
3 changed files:
Changes:
| ... | ... | @@ -285,6 +285,9 @@ pprAlignForSection platform seg = line $ |
| 285 | 285 | Data
|
| 286 | 286 | | ppc64 -> text ".align 3"
|
| 287 | 287 | | otherwise -> text ".align 2"
|
| 288 | + IPE
|
|
| 289 | + | ppc64 -> text ".align 3"
|
|
| 290 | + | otherwise -> text ".align 2"
|
|
| 288 | 291 | ReadOnlyData
|
| 289 | 292 | | ppc64 -> text ".align 3"
|
| 290 | 293 | | otherwise -> text ".align 2"
|
| ... | ... | @@ -270,6 +270,7 @@ pprXcoffSectionHeader t = case t of |
| 270 | 270 | RelocatableReadOnlyData -> text ".csect .text[PR] # RelocatableReadOnlyData"
|
| 271 | 271 | CString -> text ".csect .text[PR] # CString"
|
| 272 | 272 | UninitialisedData -> text ".csect .data[BS]"
|
| 273 | + IPE -> text ".csect .text[PR] #IPE"
|
|
| 273 | 274 | _ -> panic "pprXcoffSectionHeader: unknown section type"
|
| 274 | 275 | {-# SPECIALIZE pprXcoffSectionHeader :: SectionType -> SDoc #-}
|
| 275 | 276 | {-# SPECIALIZE pprXcoffSectionHeader :: SectionType -> HLine #-} -- see Note [SPECIALIZE to HDoc] in GHC.Utils.Outputable
|
| ... | ... | @@ -284,6 +285,7 @@ pprDarwinSectionHeader t = case t of |
| 284 | 285 | InitArray -> text ".section\t__DATA,__mod_init_func,mod_init_funcs"
|
| 285 | 286 | FiniArray -> panic "pprDarwinSectionHeader: fini not supported"
|
| 286 | 287 | CString -> text ".section\t__TEXT,__cstring,cstring_literals"
|
| 288 | + IPE -> text ".const"
|
|
| 287 | 289 | OtherSection _ -> panic "pprDarwinSectionHeader: unknown section type"
|
| 288 | 290 | {-# SPECIALIZE pprDarwinSectionHeader :: SectionType -> SDoc #-}
|
| 289 | 291 | {-# SPECIALIZE pprDarwinSectionHeader :: SectionType -> HLine #-} -- see Note [SPECIALIZE to HDoc] in GHC.Utils.Outputable |
| ... | ... | @@ -145,7 +145,7 @@ llvmSectionType p t = case t of |
| 145 | 145 | CString -> case platformOS p of
|
| 146 | 146 | OSMinGW32 -> fsLit ".rdata$str"
|
| 147 | 147 | _ -> fsLit ".rodata.str"
|
| 148 | - |
|
| 148 | + IPE -> fsLit ".ipe"
|
|
| 149 | 149 | InitArray -> panic "llvmSectionType: InitArray"
|
| 150 | 150 | FiniArray -> panic "llvmSectionType: FiniArray"
|
| 151 | 151 | OtherSection _ -> panic "llvmSectionType: unknown section type"
|