From: simonpj <unknown>
Date: Mon, 11 Sep 2000 08:13:37 +0000 (+0000)
Subject: [project @ 2000-09-11 08:13:37 by simonpj]
X-Git-Tag: Approximately_9120_patches~3763
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=d8e1c0a78a79c3c6156464438ea7aea3b61b2bd6;p=ghc-hetmet.git

[project @ 2000-09-11 08:13:37 by simonpj]
Remove redundant setNoDiscardId call from Specialise.newIdSM
---

diff --git a/ghc/compiler/specialise/Specialise.lhs b/ghc/compiler/specialise/Specialise.lhs
index 5f865c2..cf55186 100644
--- a/ghc/compiler/specialise/Specialise.lhs
+++ b/ghc/compiler/specialise/Specialise.lhs
@@ -1140,15 +1140,12 @@ newIdSM old_id new_ty
   = getUniqSM		`thenSM` \ uniq ->
     let 
 	-- Give the new Id a similar occurrence name to the old one
+	-- We used to add setIdNoDiscard if the old id was exported, to
+	-- avoid it being dropped as dead code, but that's not necessary any more.
 	name   = idName old_id
 	new_id = mkUserLocal (mkSpecOcc (nameOccName name)) uniq new_ty (getSrcLoc name)
-
-	-- If the old Id was exported, make the new one non-discardable,
-	-- else we will discard it since it doesn't seem to be called.
-	new_id' | isExportedId old_id = setIdNoDiscard new_id
-		| otherwise	      = new_id
     in
-    returnSM new_id'
+    returnSM new_id
 
 newTyVarSM
   = getUniqSM		`thenSM` \ uniq ->