X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FInterpreter.hs;h=2945115ebb6d60f8530590267dab423517f7da37;hb=9ac80e8f546551607ed2193d884fa9252f166f98;hp=6496eba773c3371d4f1af8d8554325dbb8fd52e6;hpb=094b0ead13edc9aebfc55ef864036f55bbddd63a;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Interpreter.hs b/ghc/compiler/main/Interpreter.hs
index 6496eba..2945115 100644
--- a/ghc/compiler/main/Interpreter.hs
+++ b/ghc/compiler/main/Interpreter.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: Interpreter.hs,v 1.1 2000/11/07 16:03:38 simonmar Exp $
+-- $Id: Interpreter.hs,v 1.8 2000/11/20 16:28:29 simonmar Exp $
 --
 -- Interpreter subsystem wrapper
 --
@@ -13,26 +13,52 @@ module Interpreter (
 	module InterpSyn,
 	module Linker
 #else
-    ClosureEnv, ItblEnv,
+    ClosureEnv, emptyClosureEnv, 
+    ItblEnv, emptyItblEnv,
     linkIModules,
-    stgToInterpSyn,
+    stgExprToInterpSyn, stgBindsToInterpSyn,
     HValue,
-    UnlinkedIBinds,
+    UnlinkedIBind, UnlinkedIExpr,
     loadObjs, resolveObjs,
 #endif
   ) where
 
 #ifdef GHCI
+
+---------------------------------------------
+--	YES!  We have an interpreter
+---------------------------------------------
+
 import StgInterp
 import InterpSyn
 import Linker
+
 #else
+
+import Outputable
+
+---------------------------------------------
+--	NO!  No interpreter; generate stubs for all the bits
+
+---------------------------------------------
+
 type ClosureEnv = ()
+emptyClosureEnv = ()
+
 type ItblEnv = ()
-linkIModules = error "linkIModules"
-stgToInterpSyn = error "linkIModules"
-type HValue = ()
-type UnlinkedIBinds = ()
-loadObjs = error "loadObjs"
-resolveObjs = error "loadObjs"
+emptyItblEnv = ()
+
+type HValue        = ()
+data UnlinkedIBind = UnlinkedIBind
+data UnlinkedIExpr = UnlinkedIExpr
+
+instance Outputable UnlinkedIBind where
+  ppr x = text "Can't output UnlinkedIBind"
+
+linkIModules	    = error "linkIModules"
+stgExprToInterpSyn  = error "stgToInterpSyn"
+stgBindsToInterpSyn = error "stgBindsToInterpSyn"
+loadObjs	    = error "loadObjs"
+resolveObjs	    = error "loadObjs"
+interactiveUI       = error "interactiveUI"
 #endif