diff options
| author | David Terei <davidterei@gmail.com> | 2010-07-20 16:03:02 +0000 |
|---|---|---|
| committer | David Terei <davidterei@gmail.com> | 2010-07-20 16:03:02 +0000 |
| commit | 4040304d8ab638ad4e435daa5ae92226976f1f36 (patch) | |
| tree | fc2de114a8737ce43fd1a5a45d8ee03e0b6ef397 /compiler/llvmGen/Llvm | |
| parent | ed30194937e0562e62da3e71f9da8585ac6cf477 (diff) | |
| download | haskell-4040304d8ab638ad4e435daa5ae92226976f1f36.tar.gz | |
LLVM: Fix printing of local vars so LLVM works with -fnew-codegen
Diffstat (limited to 'compiler/llvmGen/Llvm')
| -rw-r--r-- | compiler/llvmGen/Llvm/Types.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/compiler/llvmGen/Llvm/Types.hs b/compiler/llvmGen/Llvm/Types.hs index 947a2d0f3c..3637c86467 100644 --- 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 |