X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=compiler%2FnativeGen%2FPprMach.hs;h=e7c0e9755b1eadd91a715ea4c0de877481cbc9a5;hb=9c69ef13811c41a498ef96ce7908245318bf8679;hp=3e2161e7ade31ef47e16a1325bb6618805b2af8b;hpb=7d817d447d3ee0df22691afad29c94ebbb334120;p=ghc-hetmet.git

diff --git a/compiler/nativeGen/PprMach.hs b/compiler/nativeGen/PprMach.hs
index 3e2161e..e7c0e97 100644
--- a/compiler/nativeGen/PprMach.hs
+++ b/compiler/nativeGen/PprMach.hs
@@ -760,7 +760,8 @@ pprDataItem lit
 	-- Fortunately we're assuming the small memory model, in which
 	-- all such offsets will fit into 32 bits, so we have to stick
 	-- to 32-bit offset fields and modify the RTS appropriately
-	-- (see InfoTables.h).
+        --
+        -- See Note [x86-64-relative] in includes/InfoTables.h
 	-- 
 	ppr_item I64  x 
 	   | isRelativeReloc x =
@@ -769,7 +770,6 @@ pprDataItem lit
 	   | otherwise =
 		[ptext SLIT("\t.quad\t") <> pprImm imm]
 	   where
-		isRelativeReloc (CmmLabelOff _ _)       = True
 		isRelativeReloc (CmmLabelDiffOff _ _ _) = True
 		isRelativeReloc _ = False
 #endif