diff options
| -rw-r--r-- | ghc/compiler/codeGen/CodeGen.lhs | 16 |
1 files changed, 5 insertions, 11 deletions
diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs index 62d10f38fd..94eb0b33d5 100644 --- a/ghc/compiler/codeGen/CodeGen.lhs +++ b/ghc/compiler/codeGen/CodeGen.lhs @@ -233,17 +233,11 @@ mkSRT lbl ids these -- which refers to this name). maybeGlobaliseId :: Id -> FCode Id maybeGlobaliseId id - = moduleName `thenFC` \ mod -> - let - name = idName id - - -- globalise the name for -split-objs, if necessary - real_name | opt_EnsureSplittableC = globaliseName name mod - | otherwise = name - - id' = setIdName id real_name - in - returnFC id' + | opt_EnsureSplittableC + = moduleName `thenFC` \ mod -> + returnFC (setIdName id (globaliseName (idName id) mod)) + | otherwise -- Globalise the name for -split-objs + = returnFC id maybeSplitCode | opt_EnsureSplittableC = CSplitMarker |