From: simonmar <unknown>
Date: Wed, 20 Dec 2000 10:36:23 +0000 (+0000)
Subject: [project @ 2000-12-20 10:36:23 by simonmar]
X-Git-Tag: Approximately_9120_patches~3037
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8b51b224b039971de63a12e448a194fd3bfba5de;p=ghc-hetmet.git

[project @ 2000-12-20 10:36:23 by simonmar]
add predicate on CafInfo: mayHaveCafRefs :: CafInfo -> Bool
---

diff --git a/ghc/compiler/basicTypes/IdInfo.lhs b/ghc/compiler/basicTypes/IdInfo.lhs
index e279fe7..79073fa 100644
--- a/ghc/compiler/basicTypes/IdInfo.lhs
+++ b/ghc/compiler/basicTypes/IdInfo.lhs
@@ -60,7 +60,7 @@ module IdInfo (
 	specInfo, setSpecInfo,
 
 	-- CAF info
-	CafInfo(..), cafInfo, setCafInfo, ppCafInfo,
+	CafInfo(..), cafInfo, setCafInfo, mayHaveCafRefs, ppCafInfo,
 
         -- Constructed Product Result Info
         CprInfo(..), cprInfo, setCprInfo, ppCprInfo, noCprInfo,
@@ -525,6 +525,9 @@ data CafInfo
 --      | OneCafRef Id
 
 
+mayHaveCafRefs MayHaveCafRefs = True
+mayHaveCafRefs _	      = False
+
 seqCaf c = c `seq` ()
 
 ppCafInfo NoCafRefs = ptext SLIT("__C")