projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
b1604ac
)
[project @ 2000-12-20 10:36:23 by simonmar]
author
simonmar
<unknown>
Wed, 20 Dec 2000 10:36:23 +0000
(10:36 +0000)
committer
simonmar
<unknown>
Wed, 20 Dec 2000 10:36:23 +0000
(10:36 +0000)
add predicate on CafInfo: mayHaveCafRefs :: CafInfo -> Bool
ghc/compiler/basicTypes/IdInfo.lhs
patch
|
blob
|
history
diff --git
a/ghc/compiler/basicTypes/IdInfo.lhs
b/ghc/compiler/basicTypes/IdInfo.lhs
index
e279fe7
..
79073fa
100644
(file)
--- 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")