X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2FcodeGen%2FCgInfoTbls.hs;h=e6d36c0580fb6bc94add68dae0c0a364054cb206;hp=f233cbb1c0b5f15c9febb2b1ef2239715962c435;hb=8c2549461d624ad5cfec9be3266bdfd016371658;hpb=ab22f4e6456820c1b5169d75f5975a94e61f54ce

diff --git a/compiler/codeGen/CgInfoTbls.hs b/compiler/codeGen/CgInfoTbls.hs
index f233cbb..e6d36c0 100644
--- a/compiler/codeGen/CgInfoTbls.hs
+++ b/compiler/codeGen/CgInfoTbls.hs
@@ -202,7 +202,7 @@ retVec :: CmmExpr -> CmmExpr -> CmmExpr
 -- Get a return vector from the info pointer
 retVec info_amode zero_indexed_tag
   = let slot = vectorSlot info_amode zero_indexed_tag
-#ifdef x86_64_TARGET_ARCH
+#if defined(x86_64_TARGET_ARCH) && defined(TABLES_NEXT_TO_CODE)
         tableEntry = CmmMachOp (MO_S_Conv I32 I64) [CmmLoad slot I32]
 	-- offsets are 32-bits on x86-64, due to the inability of
 	-- the tools to handle 64-bit PC-relative relocations.  See also