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"
 
+import BlockId
 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)
+litToImm (CmmBlock id)       = ImmCLbl (infoTblLbl id)
 
 -- -----------------------------------------------------------------------------
 -- Addressing modes