projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
LLVM: Add alias type defenitions to LlvmModule.
[ghc-hetmet.git]
/
compiler
/
llvmGen
/
LlvmCodeGen
/
Ppr.hs
diff --git
a/compiler/llvmGen/LlvmCodeGen/Ppr.hs
b/compiler/llvmGen/LlvmCodeGen/Ppr.hs
index
2a96efb
..
064aed8
100644
(file)
--- a/
compiler/llvmGen/LlvmCodeGen/Ppr.hs
+++ b/
compiler/llvmGen/LlvmCodeGen/Ppr.hs
@@
-67,7
+67,11
@@
pprLlvmData (globals, types) =
let tryConst (v, Just s ) = ppLlvmGlobal (v, Just s)
tryConst g@(_, Nothing) = ppLlvmGlobal g
let tryConst (v, Just s ) = ppLlvmGlobal (v, Just s)
tryConst g@(_, Nothing) = ppLlvmGlobal g
- types' = ppLlvmTypes types
+ ppLlvmTys (LMAlias a) = ppLlvmAlias a
+ ppLlvmTys (LMFunction f) = ppLlvmFunctionDecl f
+ ppLlvmTys _other = empty
+
+ types' = vcat $ map ppLlvmTys types
globals' = vcat $ map tryConst globals
in types' $+$ globals'
globals' = vcat $ map tryConst globals
in types' $+$ globals'