X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fmain%2FInterpreter.hs;h=cadec906499859ed8dcf0a9bd8911a2043a1455f;hb=e98cf284e1181d6cd67ec90b8d1c4f06eca7bc81;hp=af1d952c33d54b3f75e767b779bcd398a7c81b22;hpb=c271b64780a6504e7ccd4cc422dfc90678ea966f;p=ghc-hetmet.git

diff --git a/ghc/compiler/main/Interpreter.hs b/ghc/compiler/main/Interpreter.hs
index af1d952..cadec90 100644
--- a/ghc/compiler/main/Interpreter.hs
+++ b/ghc/compiler/main/Interpreter.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: Interpreter.hs,v 1.7 2000/11/20 14:48:54 simonpj Exp $
+-- $Id: Interpreter.hs,v 1.12 2002/09/13 15:02:35 simonpj Exp $
 --
 -- Interpreter subsystem wrapper
 --
@@ -9,56 +9,44 @@
 
 module Interpreter (
 #ifdef GHCI
-	module StgInterp,
-	module InterpSyn,
+	module ByteCodeGen,
 	module Linker
 #else
-    ClosureEnv, emptyClosureEnv, 
-    ItblEnv, emptyItblEnv,
-    linkIModules,
-    stgToInterpSyn, stgBindsToInterpSyn,
-    HValue,
-    UnlinkedIBind, UnlinkedIExpr,
-    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 = ()
+extendLinkEnv xs = return ()
 
 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