diff options
| author | Ben.Lippmeier@anu.edu.au <unknown> | 2009-10-22 01:01:05 +0000 |
|---|---|---|
| committer | Ben.Lippmeier@anu.edu.au <unknown> | 2009-10-22 01:01:05 +0000 |
| commit | ddb7062b0674e8a08bd90b4eca0b9379195d5e40 (patch) | |
| tree | 6159c13300aded9188cc3c846e938daf48ebe425 /compiler | |
| parent | 78159f0ff04becc759a021ac332ac3c70b4a1c47 (diff) | |
| download | haskell-ddb7062b0674e8a08bd90b4eca0b9379195d5e40.tar.gz | |
Add missing case to externallyVisibleCLabel
Diffstat (limited to 'compiler')
| -rw-r--r-- | compiler/cmm/CLabel.hs | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index d55a1e4a5d..8b8a7f98e6 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 |