X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FnativeGen%2FMachRegs.lhs;h=5267e5bae38265ee9b5d17b1e64bdaa87cfd3648;hp=2e578c085b2b9a83cb41fffdfd14cb4e1a656678;hb=e6243a818496aad82b6f47511d3bd9bc800f747d;hpb=176fa33f17dd78355cc572e006d2ab26898e2c69

diff --git a/compiler/nativeGen/MachRegs.lhs b/compiler/nativeGen/MachRegs.lhs
index 2e578c0..5267e5b 100644
--- 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