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)
rhs_fvs = body_fvs `minusFVBinders` args
rhs_escs = body_escs `minusVarSet` set_of_args
binder_info = lookupFVInfo scope_fv_info binder
upd' | null args && isPAP body2 = SingleEntry
upd' | null args && isPAP body2 = ReEntrant
| otherwise = upd
in
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