diff options
Diffstat (limited to 'compiler/llvmGen/Llvm/PpLlvm.hs')
| -rw-r--r-- | compiler/llvmGen/Llvm/PpLlvm.hs | 13 |
1 files changed, 2 insertions, 11 deletions
diff --git a/compiler/llvmGen/Llvm/PpLlvm.hs b/compiler/llvmGen/Llvm/PpLlvm.hs index d92e3c0739..47e26ab409 100644 --- a/compiler/llvmGen/Llvm/PpLlvm.hs +++ b/compiler/llvmGen/Llvm/PpLlvm.hs @@ -107,22 +107,13 @@ ppLlvmMetas metas = vcat $ map ppLlvmMeta metas -- | Print out an LLVM metadata definition. ppLlvmMeta :: MetaDecl -> SDoc ppLlvmMeta (MetaUnnamed n m) - = ppr n <> text " = " <> ppLlvmMetaExpr m + = ppr n <+> equals <+> ppr m ppLlvmMeta (MetaNamed n m) - = exclamation <> ftext n <> text " = !" <> braces nodes + = exclamation <> ftext n <+> equals <+> exclamation <> braces nodes where nodes = hcat $ intersperse comma $ map ppr m --- | Print out an LLVM metadata value. -ppLlvmMetaExpr :: MetaExpr -> SDoc -ppLlvmMetaExpr (MetaVar (LMLitVar (LMNullLit _))) = text "null" -ppLlvmMetaExpr (MetaStr s ) = text "!" <> doubleQuotes (ftext s) -ppLlvmMetaExpr (MetaNode n ) = ppr n -ppLlvmMetaExpr (MetaVar v ) = ppr v -ppLlvmMetaExpr (MetaStruct es) = - text "!{" <> hsep (punctuate comma (map ppLlvmMetaExpr es)) <> char '}' - -- | Print out a list of function definitions. ppLlvmFunctions :: LlvmFunctions -> SDoc |