From: Ben.Lippmeier@anu.edu.au <unknown>
Date: Thu, 22 Oct 2009 01:01:05 +0000 (+0000)
Subject: Add missing case to externallyVisibleCLabel
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=ddb7062b0674e8a08bd90b4eca0b9379195d5e40;hp=78159f0ff04becc759a021ac332ac3c70b4a1c47

Add missing case to externallyVisibleCLabel
---

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