[project @ 1997-06-05 09:16:04 by sof]

[ghc-hetmet.git] / ghc / compiler / simplStg / UpdAnal.lhs

diff --git a/ghc/compiler/simplStg/UpdAnal.lhs b/ghc/compiler/simplStg/UpdAnal.lhs
index 2b75497..59768a2 100644 (file)
--- a/ghc/compiler/simplStg/UpdAnal.lhs
+++ b/ghc/compiler/simplStg/UpdAnal.lhs
@@ -14,24 +14,23 @@
 >
 > IMP_Ubiq(){-uitous-}
 >
+> import Prelude hiding ( lookup )
+>
 > 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 +510,5 @@ suffice for now.
 >                              addIdUpdateInfo v
 >                                      (mkUpdateInfo (mkUpdateSpec v c))
 >              | otherwise    = v
-> -}
 
 %-----------------------------------------------------------------------------