From: simonpj <unknown>
Date: Thu, 20 Sep 2001 12:15:41 +0000 (+0000)
Subject: [project @ 2001-09-20 12:15:41 by simonpj]
X-Git-Tag: Approximately_9120_patches~950
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b16004bfb21ae736d84a38f57a5df18c46d4fe2e;p=ghc-hetmet.git

[project @ 2001-09-20 12:15:41 by simonpj]
Remove dead code (no need to merge to stable branch)
---

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index d2be7f9..061273a 100644
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -62,7 +62,7 @@ module IdInfo (
 	specInfo, setSpecInfo,
 
 	-- CG info
-	CgInfo(..), cgInfo, setCgInfo,  cgMayHaveCafRefs, pprCgInfo,
+	CgInfo(..), cgInfo, setCgInfo,  pprCgInfo,
  	cgArity, cgCafInfo, vanillaCgInfo,
 	CgInfoEnv, lookupCgInfo,
 	setCgArity,
@@ -592,8 +592,6 @@ setCgArity info arity =
   case cgInfo info of { CgInfo _ caf_info  -> 
 	info `setCgInfo` CgInfo arity caf_info }
 
-cgMayHaveCafRefs (CgInfo _ caf_info) = mayHaveCafRefs caf_info
-
 seqCg c = c `seq` ()  -- fields are strict anyhow
 
 vanillaCgInfo = CgInfo 0 MayHaveCafRefs		-- Definitely safe