Commit b16004bf authored by simonpj's avatar simonpj
Browse files

[project @ 2001-09-20 12:15:41 by simonpj]

Remove dead code (no need to merge to stable branch)
parent 2705a8d8
......@@ -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
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment