From be7e6f4b77b852f830952754d914377c550ffe19 Mon Sep 17 00:00:00 2001
From: simonm <unknown>
Date: Mon, 22 Mar 1999 16:56:09 +0000
Subject: [PATCH] [project @ 1999-03-22 16:56:09 by simonm] PAPs are
 ReEntrant, not SingleEntry.

---
 ghc/compiler/simplStg/StgVarInfo.lhs |    2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ghc/compiler/simplStg/StgVarInfo.lhs b/ghc/compiler/simplStg/StgVarInfo.lhs
index e062f37..9e58a8f 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' 
-- 
1.7.10.4