[project @ 2002-10-13 10:55:06 by wolfgang]

[ghc-hetmet.git] / ghc / compiler / main / Interpreter.hs

diff --git a/ghc/compiler/main/Interpreter.hs b/ghc/compiler/main/Interpreter.hs
index 2946871..cadec90 100644 (file)
--- a/ghc/compiler/main/Interpreter.hs
+++ b/ghc/compiler/main/Interpreter.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $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
 --
@@ -12,12 +12,7 @@ module Interpreter (
        module ByteCodeGen,
        module Linker
 #else
-    ClosureEnv, emptyClosureEnv, 
-    ItblEnv, emptyItblEnv,
-    byteCodeGen,
-    HValue,
-    UnlinkedBCO, UnlinkedBCOExpr,
-    loadObjs, resolveObjs,
+
 #endif
   ) where
 
@@ -38,8 +33,7 @@ import Outputable
 -- NO!  No interpreter; generate stubs for all the bits
 -- ------------------------------------------------------------
 
-type ClosureEnv = ()
-emptyClosureEnv = ()
+extendLinkEnv xs = return ()
 
 type ItblEnv = ()
 emptyItblEnv = ()
@@ -51,8 +45,8 @@ data UnlinkedBCOExpr = UnlinkedBCOExpr
 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