projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Big collection of patches for the new codegen branch.
[ghc-hetmet.git]
/
compiler
/
nativeGen
/
MachRegs.lhs
diff --git
a/compiler/nativeGen/MachRegs.lhs
b/compiler/nativeGen/MachRegs.lhs
index
2e578c0
..
5267e5b
100644
(file)
--- a/
compiler/nativeGen/MachRegs.lhs
+++ b/
compiler/nativeGen/MachRegs.lhs
@@
-96,6
+96,7
@@
module MachRegs (
#include "../includes/MachRegs.h"
#include "../includes/MachRegs.h"
+import BlockId
import Cmm
import CgUtils ( get_GlobalReg_addr )
import CLabel ( CLabel, mkMainCapabilityLabel )
import Cmm
import CgUtils ( get_GlobalReg_addr )
import CLabel ( CLabel, mkMainCapabilityLabel )
@@
-237,6
+238,7
@@
litToImm (CmmLabelDiffOff l1 l2 off)
= ImmConstantSum
(ImmConstantDiff (ImmCLbl l1) (ImmCLbl l2))
(ImmInt off)
= ImmConstantSum
(ImmConstantDiff (ImmCLbl l1) (ImmCLbl l2))
(ImmInt off)
+litToImm (CmmBlock id) = ImmCLbl (infoTblLbl id)
-- -----------------------------------------------------------------------------
-- Addressing modes
-- -----------------------------------------------------------------------------
-- Addressing modes