diff options
| author | Gabor Greif <ggreif@gmail.com> | 2019-01-01 14:45:03 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2019-01-01 17:10:48 +0100 |
| commit | e2403e6e163ecf86f63f7ee2e20868c7709bded9 (patch) | |
| tree | 311270ac38ed94d8e3f2ceaf39f865fe4ceadf4e /compiler/llvmGen | |
| parent | 53b3ef8823f5f5358aeae0f9768ebcd654525a47 (diff) | |
| download | haskell-wip/T15155a.tar.gz | |
revert asserts, they are uselesswip/T15155a
Diffstat (limited to 'compiler/llvmGen')
| -rw-r--r-- | compiler/llvmGen/LlvmCodeGen/Data.hs | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/compiler/llvmGen/LlvmCodeGen/Data.hs b/compiler/llvmGen/LlvmCodeGen/Data.hs index a8b977d715..c90b3384d6 100644 --- a/compiler/llvmGen/LlvmCodeGen/Data.hs +++ b/compiler/llvmGen/LlvmCodeGen/Data.hs @@ -22,7 +22,6 @@ import Platform import FastString import Outputable -import Util ( debugIsOn ) -- ---------------------------------------------------------------------------- -- * Constants @@ -44,8 +43,8 @@ linkage lbl = if externallyVisibleCLabel lbl -- | Pass a CmmStatic section to an equivalent Llvm code. genLlvmData :: (Section, CmmStatics) -> LlvmM LlvmData -- See note [emit-time elimination of static indirections] -genLlvmData (_, Statics alias [CmmStaticLit (CmmLabel lbl), CmmStaticLit ind, a, b]) - | {-ASSERT( (a,b) == (0,0) )-} lbl == mkIndStaticInfoLabel +genLlvmData (_, Statics alias [CmmStaticLit (CmmLabel lbl), CmmStaticLit ind, _, _]) + | lbl == mkIndStaticInfoLabel , let labelInd (CmmLabelOff l _) = Just l labelInd (CmmLabel l) = Just l labelInd _ = Nothing |