diff options
| author | Gabor Greif <ggreif@gmail.com> | 2019-01-24 08:20:53 +0100 |
|---|---|---|
| committer | Gabor Greif <ggreif@gmail.com> | 2019-01-24 08:58:54 +0100 |
| commit | 716bfb403cd26e934c6a3f1fd627e12a67a79994 (patch) | |
| tree | 57c4a6e8cc05b01acea8ce4e6ea7927912dd1c62 | |
| parent | 330a695f429ab1bc2047538ad8355301ad7db7c3 (diff) | |
| download | haskell-wip/unnamed-addr.tar.gz | |
decorate declarations toowip/unnamed-addr
| -rw-r--r-- | compiler/llvmGen/Llvm/PpLlvm.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/llvmGen/Llvm/PpLlvm.hs b/compiler/llvmGen/Llvm/PpLlvm.hs index 7ef5f6ea3a..602bbff665 100644 --- a/compiler/llvmGen/Llvm/PpLlvm.hs +++ b/compiler/llvmGen/Llvm/PpLlvm.hs @@ -175,7 +175,8 @@ ppLlvmFunctionDecl (LlvmFunctionDecl n l c r varg p a) args = hcat $ intersperse (comma <> space) $ map (\(t,a) -> ppr t <+> ppSpaceJoin a) p in text "declare" <+> ppr l <+> ppr c <+> ppr r <+> char '@' <> - ftext n <> lparen <> args <> ptext varg' <> rparen <> align $+$ newLine + ftext n <> lparen <> args <> ptext varg' <> rparen <> + text "unnamed_addr" <+> align $+$ newLine -- | Print out a list of LLVM blocks. |