Commit be7e6f4b authored by simonm's avatar simonm
Browse files

[project @ 1999-03-22 16:56:09 by simonm]

PAPs are ReEntrant, not SingleEntry.
parent c2520f24
...@@ -175,7 +175,7 @@ varsRhs scope_fv_info (binder, StgRhsClosure cc _ srt _ upd args body) ...@@ -175,7 +175,7 @@ varsRhs scope_fv_info (binder, StgRhsClosure cc _ srt _ upd args body)
rhs_fvs = body_fvs `minusFVBinders` args rhs_fvs = body_fvs `minusFVBinders` args
rhs_escs = body_escs `minusVarSet` set_of_args rhs_escs = body_escs `minusVarSet` set_of_args
binder_info = lookupFVInfo scope_fv_info binder binder_info = lookupFVInfo scope_fv_info binder
upd' | null args && isPAP body2 = SingleEntry upd' | null args && isPAP body2 = ReEntrant
| otherwise = upd | otherwise = upd
in in
returnLne (StgRhsClosure cc binder_info srt (getFVs rhs_fvs) upd' returnLne (StgRhsClosure cc binder_info srt (getFVs rhs_fvs) upd'
......
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