projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge in new code generator branch.
[ghc-hetmet.git]
/
compiler
/
llvmGen
/
LlvmCodeGen
/
Regs.hs
diff --git
a/compiler/llvmGen/LlvmCodeGen/Regs.hs
b/compiler/llvmGen/LlvmCodeGen/Regs.hs
index
cc961cc
..
661dc9a
100644
(file)
--- a/
compiler/llvmGen/LlvmCodeGen/Regs.hs
+++ b/
compiler/llvmGen/LlvmCodeGen/Regs.hs
@@
-1,4
+1,5
@@
--- ---------------------------------------------------------------------------- -- | Deal with Cmm registers
+--------------------------------------------------------------------------------
+-- | Deal with Cmm registers
--
module LlvmCodeGen.Regs (
--
module LlvmCodeGen.Regs (
@@
-15,11
+16,7
@@
import FastString
-- | Get the LlvmVar function variable storing the real register
lmGlobalRegVar :: GlobalReg -> LlvmVar
-- | Get the LlvmVar function variable storing the real register
lmGlobalRegVar :: GlobalReg -> LlvmVar
-lmGlobalRegVar reg
- = let reg' = lmGlobalReg "_Var" reg
- in if (isPointer . getVarType) reg'
- then reg'
- else pVarLift reg'
+lmGlobalRegVar = (pVarLift . lmGlobalReg "_Var")
-- | Get the LlvmVar function argument storing the real register
lmGlobalRegArg :: GlobalReg -> LlvmVar
-- | Get the LlvmVar function argument storing the real register
lmGlobalRegArg :: GlobalReg -> LlvmVar