diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-07-25 08:09:01 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-07-25 08:09:01 +0000 |
| commit | c6453def7dcfd8bd9468f488edef6083d37eec87 (patch) | |
| tree | 4ad8755a2a45ceea2be26046384b12e46d5d7820 /compiler/cmm | |
| parent | 1a50b338952e91251197d4cf4c4f0a0e266e99a7 (diff) | |
| download | haskell-c6453def7dcfd8bd9468f488edef6083d37eec87.tar.gz | |
SRT labels don't need to be globally visible
Saves space in the symbol table and speeds up linking
Diffstat (limited to 'compiler/cmm')
| -rw-r--r-- | compiler/cmm/CLabel.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/compiler/cmm/CLabel.hs b/compiler/cmm/CLabel.hs index 8989276b73..0c3c007869 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 |