projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(from parent 1:
ed30194
)
LLVM: Fix printing of local vars so LLVM works with -fnew-codegen
author
David Terei
<davidterei@gmail.com>
Tue, 20 Jul 2010 16:03:02 +0000
(16:03 +0000)
committer
David Terei
<davidterei@gmail.com>
Tue, 20 Jul 2010 16:03:02 +0000
(16:03 +0000)
compiler/llvmGen/Llvm/Types.hs
patch
|
blob
|
history
diff --git
a/compiler/llvmGen/Llvm/Types.hs
b/compiler/llvmGen/Llvm/Types.hs
index
947a2d0
..
3637c86
100644
(file)
--- a/
compiler/llvmGen/Llvm/Types.hs
+++ b/
compiler/llvmGen/Llvm/Types.hs
@@
-200,7
+200,8
@@
getName v@(LMLitVar _ ) = getPlainName v
-- in a plain textual representation (e.g. @x@, @y@ or @42@).
getPlainName :: LlvmVar -> String
getPlainName (LMGlobalVar x _ _ _ _ _) = unpackFS x
-getPlainName (LMLocalVar x _ ) = show x
+getPlainName (LMLocalVar x LMLabel ) = show x
+getPlainName (LMLocalVar x _ ) = "l" ++ show x
getPlainName (LMNLocalVar x _ ) = unpackFS x
getPlainName (LMLitVar x ) = getLit x