From: simonpj <unknown>
Date: Thu, 18 Oct 2001 16:27:42 +0000 (+0000)
Subject: [project @ 2001-10-18 16:27:42 by simonpj]
X-Git-Tag: Approximately_9120_patches~782
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=25e8bcade5f62dcd25b1f070ab9e680a7240c8c7;p=ghc-hetmet.git

[project @ 2001-10-18 16:27:42 by simonpj]
Tidy up maybeGlobaliseId
---

diff --git a/ghc/compiler/codeGen/CodeGen.lhs b/ghc/compiler/codeGen/CodeGen.lhs
index 62d10f3..94eb0b3 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