diff options
Diffstat (limited to 'compiler/GHC/ByteCode/Linker.hs')
| -rw-r--r-- | compiler/GHC/ByteCode/Linker.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/GHC/ByteCode/Linker.hs b/compiler/GHC/ByteCode/Linker.hs index 8a7a24ae1a..4419309788 100644 --- a/compiler/GHC/ByteCode/Linker.hs +++ b/compiler/GHC/ByteCode/Linker.hs @@ -194,7 +194,7 @@ nameToCLabel n suffix = mkFastString label mod -> mod packagePart = encodeZ (unitFS pkgKey) modulePart = encodeZ (moduleNameFS modName) - occPart = encodeZ (occNameFS (nameOccName n)) + occPart = encodeZ $ occNameMangledFS (nameOccName n) label = concat [ if pkgKey == mainUnit then "" else packagePart ++ "_" |