diff options
Diffstat (limited to 'compiler/GHC/CmmToLlvm/Data.hs')
| -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) |