diff options
| author | simonm <unknown> | 1999-03-22 16:56:09 +0000 |
|---|---|---|
| committer | simonm <unknown> | 1999-03-22 16:56:09 +0000 |
| commit | be7e6f4b77b852f830952754d914377c550ffe19 (patch) | |
| tree | d49895efc55b2a21af805de6584d0989b3594d49 | |
| parent | c2520f241f926f361a4d9ee73cb20507af07bd1c (diff) | |
| download | haskell-be7e6f4b77b852f830952754d914377c550ffe19.tar.gz | |
[project @ 1999-03-22 16:56:09 by simonm]
PAPs are ReEntrant, not SingleEntry.
| -rw-r--r-- | ghc/compiler/simplStg/StgVarInfo.lhs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ghc/compiler/simplStg/StgVarInfo.lhs b/ghc/compiler/simplStg/StgVarInfo.lhs index e062f37d1d..9e58a8f2ca 100644 --- a/ghc/compiler/simplStg/StgVarInfo.lhs +++ b/ghc/compiler/simplStg/StgVarInfo.lhs @@ -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' |