From ddb7062b0674e8a08bd90b4eca0b9379195d5e40 Mon Sep 17 00:00:00 2001 From: "Ben.Lippmeier@anu.edu.au" Date: Thu, 22 Oct 2009 01:01:05 +0000 Subject: [PATCH] Add missing case to externallyVisibleCLabel --- compiler/cmm/CLabel.hs | 1 + 1 file changed, 1 insertion(+) 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 -- 1.7.10.4