From c6453def7dcfd8bd9468f488edef6083d37eec87 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Fri, 25 Jul 2008 08:09:01 +0000 Subject: [PATCH] SRT labels don't need to be globally visible Saves space in the symbol table and speeds up linking --- compiler/cmm/CLabel.hs | 2 ++ 1 file changed, 2 insertions(+) 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 -- 1.7.10.4