[project @ 1996-01-08 20:28:12 by partain]
[ghc-hetmet.git] / ghc / compiler / stranal / SaAbsInt.hi
1 {-# GHC_PRAGMA INTERFACE VERSION 5 #-}
2 interface SaAbsInt where
3 import CoreSyn(CoreExpr)
4 import Id(Id)
5 import IdInfo(Demand)
6 import SaLib(AbsVal, AbsValEnv, AnalysisKind)
7 import UniType(UniType)
8 absEval :: AnalysisKind -> CoreExpr Id Id -> AbsValEnv -> AbsVal
9         {-# GHC_PRAGMA _A_ 3 _U_ 222 _N_ _S_ "LSL" _N_ _N_ #-}
10 findDemand :: AbsValEnv -> AbsValEnv -> CoreExpr Id Id -> Id -> Demand
11         {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ "LLLU(LSLL)" _N_ _N_ #-}
12 findStrictness :: [UniType] -> AbsVal -> AbsVal -> [Demand]
13         {-# GHC_PRAGMA _A_ 3 _U_ 122 _N_ _S_ "SLL" _N_ _N_ #-}
14 fixpoint :: AnalysisKind -> [Id] -> [CoreExpr Id Id] -> AbsValEnv -> [AbsVal]
15         {-# GHC_PRAGMA _A_ 4 _U_ 2222 _N_ _S_ "LSLL" _N_ _N_ #-}
16 isBot :: AbsVal -> Bool
17         {-# GHC_PRAGMA _A_ 1 _U_ 1 _N_ _S_ "S" _N_ _N_ #-}
18 widen :: AnalysisKind -> AbsVal -> AbsVal
19         {-# GHC_PRAGMA _A_ 2 _U_ 22 _N_ _S_ "ES" _N_ _N_ #-}
20