[project @ 1996-06-05 06:44:31 by partain]

[ghc-hetmet.git] / ghc / compiler / simplCore / SmplLoop.lhi

diff --git a/ghc/compiler/simplCore/SmplLoop.lhi b/ghc/compiler/simplCore/SmplLoop.lhi
index ddffa3b..a6275b9 100644 (file)
--- a/ghc/compiler/simplCore/SmplLoop.lhi
+++ b/ghc/compiler/simplCore/SmplLoop.lhi
@@ -5,6 +5,8 @@ Also break the loop between SimplVar/SimplCase (which use
 Simplify.simplExpr) and SimplExpr (which uses whatever
 SimplVar/SimplCase cough up).
 
+Tell SimplEnv about SimplUtils.simplIdWantsToBeINLINEd.
+
 \begin{code}
 interface SmplLoop where
 
@@ -13,6 +15,7 @@ import SimplEnv           ( SimplEnv, InBinding(..), InExpr(..),
                      OutArg(..), OutExpr(..), OutType(..)
                    )
 import Simplify            ( simplExpr, simplBind )
+import SimplUtils   ( simplIdWantsToBeINLINEd )
 
 import BinderInfo(BinderInfo)
 import CoreSyn(GenCoreArg, GenCoreBinding, GenCoreExpr)
@@ -27,6 +30,8 @@ import Usage(GenUsage)
 data MagicUnfoldingFun
 data SimplCount 
 
+simplIdWantsToBeINLINEd :: GenId (GenType (GenTyVar (GenUsage Unique)) Unique) -> SimplEnv -> Bool
+
 simplBind :: SimplEnv -> GenCoreBinding (GenId (GenType (GenTyVar (GenUsage Unique)) Unique), BinderInfo) (GenId (GenType (GenTyVar (GenUsage Unique)) Unique)) (GenTyVar (GenUsage Unique)) Unique -> (SimplEnv -> UniqSupply -> SimplCount -> (GenCoreExpr (GenId (GenType (GenTyVar (GenUsage Unique)) Unique)) (GenId (GenType (GenTyVar (GenUsage Unique)) Unique)) (GenTyVar (GenUsage Unique)) Unique, SimplCount)) -> GenType (GenTyVar (GenUsage Unique)) Unique -> UniqSupply -> SimplCount -> (GenCoreExpr (GenId (GenType (GenTyVar (GenUsage Unique)) Unique)) (GenId (GenType (GenTyVar (GenUsage Unique)) Unique)) (GenTyVar (GenUsage Unique)) Unique, SimplCount)
 simplExpr :: SimplEnv -> GenCoreExpr (GenId (GenType (GenTyVar (GenUsage Unique)) Unique), BinderInfo) (GenId (GenType (GenTyVar (GenUsage Unique)) Unique)) (GenTyVar (GenUsage Unique)) Unique -> [GenCoreArg (GenId (GenType (GenTyVar (GenUsage Unique)) Unique)) (GenTyVar (GenUsage Unique)) Unique] -> UniqSupply -> SimplCount -> (GenCoreExpr (GenId (GenType (GenTyVar (GenUsage Unique)) Unique)) (GenId (GenType (GenTyVar (GenUsage Unique)) Unique)) (GenTyVar (GenUsage Unique)) Unique, SimplCount)
 \end{code}