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/CmmToLlvm | |
| 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/CmmToLlvm')
| -rw-r--r-- | compiler/GHC/CmmToLlvm/Data.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/GHC/CmmToLlvm/Data.hs b/compiler/GHC/CmmToLlvm/Data.hs index deb1929968..ea5b83a703 100644 --- a/compiler/GHC/CmmToLlvm/Data.hs +++ b/compiler/GHC/CmmToLlvm/Data.hs @@ -132,6 +132,7 @@ llvmSection (Section t suffix) = do -- | Handle static data genData :: CmmStatic -> LlvmM LlvmStatic +genData (CmmFileEmbed {}) = panic "Unexpected CmmFileEmbed literal" genData (CmmString str) = do let v = map (\x -> LMStaticLit $ LMIntLit (fromIntegral x) i8) (BS.unpack str) |