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/Ppr | |
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/Ppr')
-rw-r--r-- | compiler/GHC/Cmm/Ppr/Decl.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/Cmm/Ppr/Decl.hs b/compiler/GHC/Cmm/Ppr/Decl.hs index 6bece6dca8..9190bf61be 100644 --- a/compiler/GHC/Cmm/Ppr/Decl.hs +++ b/compiler/GHC/Cmm/Ppr/Decl.hs @@ -155,6 +155,7 @@ pprStatic platform s = case s of CmmStaticLit lit -> nest 4 $ text "const" <+> pprLit platform lit <> semi CmmUninitialised i -> nest 4 $ text "I8" <> brackets (int i) CmmString s' -> nest 4 $ text "I8[]" <+> text (show s') + CmmFileEmbed path -> nest 4 $ text "incbin " <+> text (show path) -- -------------------------------------------------------------------------- -- data sections |