From: Simon Marlow Date: Fri, 25 Jul 2008 08:09:01 +0000 (+0000) Subject: SRT labels don't need to be globally visible X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=c6453def7dcfd8bd9468f488edef6083d37eec87 SRT labels don't need to be globally visible Saves space in the symbol table and speeds up linking --- diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index 8989276..0c3c007 100644 --- a/compiler/cmm/CLabel.hs +++ b/compiler/cmm/CLabel.hs @@ -528,6 +528,8 @@ externallyVisibleCLabel (PlainModuleInitLabel _)= True externallyVisibleCLabel ModuleRegdLabel = False externallyVisibleCLabel (RtsLabel _) = True externallyVisibleCLabel (ForeignLabel _ _ _) = True +externallyVisibleCLabel (IdLabel name SRT) = False + -- SRTs don't need to be external externallyVisibleCLabel (IdLabel name _) = isExternalName name externallyVisibleCLabel (CC_Label _) = True externallyVisibleCLabel (CCS_Label _) = True