-----------------------------------------------------------------------------
--- $Id: Interpreter.hs,v 1.7 2000/11/20 14:48:54 simonpj Exp $
+-- $Id: Interpreter.hs,v 1.11 2000/12/19 12:36:12 sewardj Exp $
--
-- Interpreter subsystem wrapper
--
module Interpreter (
#ifdef GHCI
- module StgInterp,
- module InterpSyn,
+ module ByteCodeGen,
module Linker
#else
ClosureEnv, emptyClosureEnv,
ItblEnv, emptyItblEnv,
- linkIModules,
- stgToInterpSyn, stgBindsToInterpSyn,
+ byteCodeGen,
HValue,
- UnlinkedIBind, UnlinkedIExpr,
+ UnlinkedBCO, UnlinkedBCOExpr,
loadObjs, resolveObjs,
#endif
) where
#ifdef GHCI
----------------------------------------------
--- YES! We have an interpreter
----------------------------------------------
+-- ------------------------------------------------------------
+-- YES! We have an interpreter
+-- ------------------------------------------------------------
-import StgInterp
-import InterpSyn
+import ByteCodeGen
import Linker
#else
import Outputable
----------------------------------------------
--- NO! No interpreter; generate stubs for all the bits
-
----------------------------------------------
+-- ------------------------------------------------------------
+-- NO! No interpreter; generate stubs for all the bits
+-- ------------------------------------------------------------
type ClosureEnv = ()
emptyClosureEnv = ()
type ItblEnv = ()
emptyItblEnv = ()
-type HValue = ()
-data UnlinkedIBind = UnlinkedIBind
-data UnlinkedIExpr = UnlinkedIExpr
+type HValue = ()
+data UnlinkedBCO = UnlinkedBCO
+data UnlinkedBCOExpr = UnlinkedBCOExpr
-instance Outputable UnlinkedIBind where
- ppr x = text "Can't output UnlinkedIBind"
+instance Outputable UnlinkedBCO where
+ ppr x = text "Can't output UnlinkedBCO"
-linkIModules = error "linkIModules"
-stgToInterpSyn = error "stgToInterpSyn"
-stgBindsToInterpSyn = error "stgBindsToInterpSyn"
-loadObjs = error "loadObjs"
-resolveObjs = error "loadObjs"
-interactiveUI = error "interactiveUI"
+byteCodeGen = error "byteCodeGen"
+loadObjs = error "loadObjs"
+resolveObjs = error "resolveObjs"
+interactiveUI = error "interactiveUI"
#endif