diff options
author | Peter Wortmann <scpmw@leeds.ac.uk> | 2013-07-04 17:16:45 +0100 |
---|---|---|
committer | David Terei <davidterei@gmail.com> | 2013-07-05 16:59:35 -0700 |
commit | 405a20c671df30a977f72f6ee79a3dfc4dac60e5 (patch) | |
tree | aae95e4418e3032af233d89572c6a7df34d482e6 | |
parent | a42125243ac1cb0f05d93d58e6d2818d742501ee (diff) | |
download | haskell-405a20c671df30a977f72f6ee79a3dfc4dac60e5.tar.gz |
Remove spurious extra brace in LLVM metadata
This actually caused a segfault in the optimized stage 2 compiler due to
wrong TBAA data.
Signed-off-by: David Terei <davidterei@gmail.com>
-rw-r--r-- | compiler/llvmGen/Llvm/PpLlvm.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/llvmGen/Llvm/PpLlvm.hs b/compiler/llvmGen/Llvm/PpLlvm.hs index 87be8f6dc0..fca1a7cd4d 100644 --- a/compiler/llvmGen/Llvm/PpLlvm.hs +++ b/compiler/llvmGen/Llvm/PpLlvm.hs @@ -105,7 +105,7 @@ ppLlvmMetas metas = vcat $ map ppLlvmMeta metas -- | Print out an LLVM metadata definition. ppLlvmMeta :: MetaDecl -> SDoc ppLlvmMeta (MetaUnamed n m) - = exclamation <> int n <> text " = metadata !" <> braces (ppLlvmMetaExpr m) + = exclamation <> int n <> text " = " <> ppLlvmMetaExpr m ppLlvmMeta (MetaNamed n m) = exclamation <> ftext n <> text " = !" <> braces nodes |