diff options
| author | Sylvain Henry <sylvain@haskus.fr> | 2020-03-25 20:06:19 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2020-04-03 06:26:54 -0400 |
| commit | a485c3c4049fff09e989bfd7d2ba47035c92a69b (patch) | |
| tree | b1b87b24afa4b175ec4c74165d168783fcac7d32 /compiler/GHC/Cmm.hs | |
| parent | f7597aa0c028ced898ac97e344754dd961b70c57 (diff) | |
| download | haskell-a485c3c4049fff09e989bfd7d2ba47035c92a69b.tar.gz | |
Move blob handling into StgToCmm
Move handling of big literal strings from CmmToAsm to StgToCmm. It
avoids the use of `sdocWithDynFlags` (cf #10143). We might need to move
this handling even higher in the pipeline in the future (cf #17960):
this patch will make it easier.
Diffstat (limited to 'compiler/GHC/Cmm.hs')
| -rw-r--r-- | compiler/GHC/Cmm.hs | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/compiler/GHC/Cmm.hs b/compiler/GHC/Cmm.hs index d52c3ad801..9973db8d0d 100644 --- a/compiler/GHC/Cmm.hs +++ b/compiler/GHC/Cmm.hs @@ -197,11 +197,13 @@ data Section = Section SectionType CLabel data CmmStatic = CmmStaticLit CmmLit - -- a literal value, size given by cmmLitRep of the literal. + -- ^ a literal value, size given by cmmLitRep of the literal. | CmmUninitialised Int - -- uninitialised data, N bytes long + -- ^ uninitialised data, N bytes long | CmmString ByteString - -- string of 8-bit values only, not zero terminated. + -- ^ string of 8-bit values only, not zero terminated. + | CmmFileEmbed FilePath + -- ^ an embedded binary file -- Static data before SRT generation data CmmStatics |