projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
962448d
)
[project @ 2001-10-18 16:27:42 by simonpj]
author
simonpj
<unknown>
Thu, 18 Oct 2001 16:27:42 +0000
(16:27 +0000)
committer
simonpj
<unknown>
Thu, 18 Oct 2001 16:27:42 +0000
(16:27 +0000)
Tidy up maybeGlobaliseId
ghc/compiler/codeGen/CodeGen.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/codeGen/CodeGen.lhs
b/ghc/compiler/codeGen/CodeGen.lhs
index
62d10f3
..
94eb0b3
100644
(file)
--- 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
-- 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
maybeSplitCode
| opt_EnsureSplittableC = CSplitMarker