From: sof <unknown>
Date: Sun, 18 May 1997 23:04:06 +0000 (+0000)
Subject: [project @ 1997-05-18 23:04:06 by sof]
X-Git-Tag: Approximately_1000_patches_recorded~618
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7f1218d81179823f9b4857ca38cd7b5e29e542c6;p=ghc-hetmet.git

[project @ 1997-05-18 23:04:06 by sof]
2.0x bootable
---

diff --git a/ghc/compiler/stranal/WorkWrap.lhs b/ghc/compiler/stranal/WorkWrap.lhs
index 1b133b1..e1621b3 100644
--- a/ghc/compiler/stranal/WorkWrap.lhs
+++ b/ghc/compiler/stranal/WorkWrap.lhs
@@ -15,9 +15,9 @@ import CoreUnfold	( Unfolding, certainlySmallEnoughToInline, calcUnfoldingGuidan
 import CmdLineOpts	( opt_UnfoldingCreationThreshold )
 
 import CoreUtils	( coreExprType )
-import Id		( idWantsToBeINLINEd, getIdStrictness, mkWorkerId,
-			  addIdStrictness, addInlinePragma,
-			  GenId
+import Id		( getInlinePragma, getIdStrictness, mkWorkerId,
+			  addIdStrictness, addInlinePragma, 
+			  GenId, SYN_IE(Id)
 			)
 import IdInfo		( noIdInfo, addUnfoldInfo,  
 			  mkStrictnessInfo, addStrictnessInfo, StrictnessInfo(..)
@@ -185,9 +185,10 @@ tryWW	:: Id				-- The fn binder
 					-- wrapper.
 tryWW fn_id rhs
   | (certainlySmallEnoughToInline $
-     calcUnfoldingGuidance (idWantsToBeINLINEd fn_id) 
+     calcUnfoldingGuidance (getInlinePragma fn_id) 
 			  opt_UnfoldingCreationThreshold
-			  rhs)
+			  rhs
+    )
 	    -- No point in worker/wrappering something that is going to be
 	    -- INLINEd wholesale anyway.  If the strictness analyser is run
 	    -- twice, this test also prevents wrappers (which are INLINEd)