summaryrefslogtreecommitdiff
path: root/compiler/GHC/CmmToAsm/X86/Ppr.hs
diff options
context:
space:
mode:
Diffstat (limited to 'compiler/GHC/CmmToAsm/X86/Ppr.hs')
-rw-r--r--compiler/GHC/CmmToAsm/X86/Ppr.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/CmmToAsm/X86/Ppr.hs b/compiler/GHC/CmmToAsm/X86/Ppr.hs
index cad3ab7163..0b19665857 100644
--- a/compiler/GHC/CmmToAsm/X86/Ppr.hs
+++ b/compiler/GHC/CmmToAsm/X86/Ppr.hs
@@ -254,7 +254,7 @@ pprLabelType' platform lbl =
but mess up with the relocation. https://phabricator.haskell.org/D4730
-}
functionOkInfoTable = platformTablesNextToCode platform &&
- isInfoTableLabel lbl && not (isConInfoTableLabel lbl)
+ isInfoTableLabel lbl && not (isCmmInfoTableLabel lbl) && not (isConInfoTableLabel lbl)
pprTypeDecl :: Platform -> CLabel -> SDoc