projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Add support for parameter attributes to the llvm BE binding
[ghc-hetmet.git]
/
compiler
/
llvmGen
/
LlvmCodeGen
/
Ppr.hs
diff --git
a/compiler/llvmGen/LlvmCodeGen/Ppr.hs
b/compiler/llvmGen/LlvmCodeGen/Ppr.hs
index
8137713
..
2a96efb
100644
(file)
--- a/
compiler/llvmGen/LlvmCodeGen/Ppr.hs
+++ b/
compiler/llvmGen/LlvmCodeGen/Ppr.hs
@@
-90,10
+90,9
@@
pprLlvmCmmTop env count (CmmProc info lbl _ (ListGraph blks))
link = if externallyVisibleCLabel lbl'
then ExternallyVisible
else Internal
link = if externallyVisibleCLabel lbl'
then ExternallyVisible
else Internal
- funDec = llvmFunSig lbl' link
lmblocks = map (\(BasicBlock id stmts) ->
LlvmBlock (getUnique id) stmts) blks
lmblocks = map (\(BasicBlock id stmts) ->
LlvmBlock (getUnique id) stmts) blks
- fun = LlvmFunction funDec [NoUnwind] sec' lmblocks
+ fun = mkLlvmFunc lbl' link sec' lmblocks
in ppLlvmFunction fun
), ivar)
in ppLlvmFunction fun
), ivar)