X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=compiler%2Fcmm%2FCLabel.hs;fp=compiler%2Fcmm%2FCLabel.hs;h=8b8a7f98e6b676db7662c22165f9053ef921f3e6;hp=d55a1e4a5d5d3150996b6574a8b367366bc3ce05;hb=ddb7062b0674e8a08bd90b4eca0b9379195d5e40;hpb=78159f0ff04becc759a021ac332ac3c70b4a1c47

diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs
index d55a1e4..8b8a7f9 100644
--- a/compiler/cmm/CLabel.hs
+++ b/compiler/cmm/CLabel.hs
@@ -662,6 +662,7 @@ externallyVisibleCLabel (PlainModuleInitLabel _)= True
 externallyVisibleCLabel (ModuleInitTableLabel _)= False
 externallyVisibleCLabel ModuleRegdLabel		= False
 externallyVisibleCLabel (RtsLabel _)		= True
+externallyVisibleCLabel (CmmLabel _ _ _)	= True
 externallyVisibleCLabel (ForeignLabel _ _ _ _)	= True
 externallyVisibleCLabel (IdLabel name _ _)	= isExternalName name
 externallyVisibleCLabel (CC_Label _)		= True