diff options
| author | sof <unknown> | 1997-01-03 06:18:45 +0000 |
|---|---|---|
| committer | sof <unknown> | 1997-01-03 06:18:45 +0000 |
| commit | 8fe90ccbca78fe4c00537f1679a7106b4ed14454 (patch) | |
| tree | ff02cd7002b1ffb6f147dcdb65b7b38f9565f2f3 | |
| parent | a67d3c23cebb1c82e3a4f50cf5c55167113eec34 (diff) | |
| download | haskell-8fe90ccbca78fe4c00537f1679a7106b4ed14454.tar.gz | |
[project @ 1997-01-03 06:18:45 by sof]
Brought upto 2.01 speed
| -rw-r--r-- | ghc/compiler/simplStg/UpdAnal.lhs | 28 |
1 files changed, 12 insertions, 16 deletions
diff --git a/ghc/compiler/simplStg/UpdAnal.lhs b/ghc/compiler/simplStg/UpdAnal.lhs index 2b75497728..ecd8ed1707 100644 --- a/ghc/compiler/simplStg/UpdAnal.lhs +++ b/ghc/compiler/simplStg/UpdAnal.lhs @@ -15,23 +15,20 @@ > IMP_Ubiq(){-uitous-} > > import StgSyn +> import Id ( SYN_IE(IdEnv), growIdEnv, addOneToIdEnv, combineIdEnvs, nullIdEnv, +> unitIdEnv, mkIdEnv, rngIdEnv, lookupIdEnv, +> SYN_IE(IdSet), +> getIdUpdateInfo, addIdUpdateInfo, mkSysLocal, idType, isImportedId, +> externallyVisibleId, +> SYN_IE(Id), GenId +> ) +> import IdInfo ( UpdateInfo, SYN_IE(UpdateSpec), mkUpdateInfo, updateInfoMaybe ) +> import Type ( splitFunTy, splitSigmaTy ) +> import UniqSet +> import Unique ( getBuiltinUniques ) +> import SrcLoc ( noSrcLoc ) > import Util ( panic ) > -> updateAnalyse :: [StgBinding] -> [StgBinding] {- Exported -} -> updateAnalyse = panic "UpdAnal.updateAnalyse" -> -> {- LATER: to end of file: -> --import Type ( splitFunTy, splitSigmaTy, Class, TyVarTemplate, -> -- SYN_IE(TauType) -> -- ) -> --import Id -> --import IdInfo -> --import Pretty -> --import SrcLoc ( noSrcLoc ) -> --import StgSyn -> --import UniqSet -> --import Unique ( getBuiltinUniques ) -> --import Util %----------------------------------------------------------------------------- \subsection{Reverse application} @@ -511,6 +508,5 @@ suffice for now. > addIdUpdateInfo v > (mkUpdateInfo (mkUpdateSpec v c)) > | otherwise = v -> -} %----------------------------------------------------------------------------- |