diff options
| author | simonpj <unknown> | 2001-10-18 16:27:42 +0000 |
|---|---|---|
| committer | simonpj <unknown> | 2001-10-18 16:27:42 +0000 |
| commit | 25e8bcade5f62dcd25b1f070ab9e680a7240c8c7 (patch) | |
| tree | 14dfc3b9b566773c930b1ee37360dbe6c6e49ee9 /ghc/compiler/codeGen/CodeGen.lhs | |
| parent | 962448d7349a11e9148f7c1ae4f2e4660e27d44e (diff) | |
| download | haskell-25e8bcade5f62dcd25b1f070ab9e680a7240c8c7.tar.gz | |
[project @ 2001-10-18 16:27:42 by simonpj]
Tidy up maybeGlobaliseId
Diffstat (limited to 'ghc/compiler/codeGen/CodeGen.lhs')
| -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 |