-----------------------------------------------------------------------------
--- $Id: Interpreter.hs,v 1.10 2000/12/18 15:18:11 simonmar Exp $
+-- $Id: Interpreter.hs,v 1.12 2002/09/13 15:02:35 simonpj Exp $
--
-- Interpreter subsystem wrapper
--
module ByteCodeGen,
module Linker
#else
- ClosureEnv, emptyClosureEnv,
- ItblEnv, emptyItblEnv,
- byteCodeGen,
- HValue,
- UnlinkedBCO, UnlinkedBCOExpr,
- loadObjs, resolveObjs,
+
#endif
) where
-- NO! No interpreter; generate stubs for all the bits
-- ------------------------------------------------------------
-type ClosureEnv = ()
-emptyClosureEnv = ()
+extendLinkEnv xs = return ()
type ItblEnv = ()
emptyItblEnv = ()
instance Outputable UnlinkedBCO where
ppr x = text "Can't output UnlinkedBCO"
-byteCodeGen = error "stgBindsToInterpSyn"
+byteCodeGen = error "byteCodeGen"
loadObjs = error "loadObjs"
-resolveObjs = error "loadObjs"
+resolveObjs = error "resolveObjs"
interactiveUI = error "interactiveUI"
#endif