From: simonmar <unknown>
Date: Mon, 18 Dec 2000 15:18:11 +0000 (+0000)
Subject: [project @ 2000-12-18 15:18:11 by simonmar]
X-Git-Tag: Approximately_9120_patches~3073
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=140a581052ce3644d75c47e5c20b237cdff3ee6e;p=ghc-hetmet.git

[project @ 2000-12-18 15:18:11 by simonmar]
Make it compile w/out -DGHCI
---

diff --git a/ghc/compiler/main/Interpreter.hs b/ghc/compiler/main/Interpreter.hs
index 8ecb257..2946871 100644
--- a/ghc/compiler/main/Interpreter.hs
+++ b/ghc/compiler/main/Interpreter.hs
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------------
--- $Id: Interpreter.hs,v 1.9 2000/12/18 12:43:04 sewardj Exp $
+-- $Id: Interpreter.hs,v 1.10 2000/12/18 15:18:11 simonmar Exp $
 --
 -- Interpreter subsystem wrapper
 --
@@ -14,19 +14,18 @@ module Interpreter (
 #else
     ClosureEnv, emptyClosureEnv, 
     ItblEnv, emptyItblEnv,
-    linkIModules,
-    stgExprToInterpSyn, stgBindsToInterpSyn,
+    byteCodeGen,
     HValue,
-    UnlinkedIBind, UnlinkedIExpr,
+    UnlinkedBCO, UnlinkedBCOExpr,
     loadObjs, resolveObjs,
 #endif
   ) where
 
 #ifdef GHCI
 
----------------------------------------------
---	YES!  We have an interpreter
----------------------------------------------
+-- ------------------------------------------------------------
+-- YES!  We have an interpreter
+-- ------------------------------------------------------------
 
 import ByteCodeGen
 import Linker
@@ -35,10 +34,9 @@ import Linker
 
 import Outputable
 
----------------------------------------------
---	NO!  No interpreter; generate stubs for all the bits
-
----------------------------------------------
+-- ------------------------------------------------------------
+-- NO!  No interpreter; generate stubs for all the bits
+-- ------------------------------------------------------------
 
 type ClosureEnv = ()
 emptyClosureEnv = ()
@@ -46,17 +44,15 @@ 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"
-stgExprToInterpSyn  = error "stgToInterpSyn"
-stgBindsToInterpSyn = error "stgBindsToInterpSyn"
-loadObjs	    = error "loadObjs"
-resolveObjs	    = error "loadObjs"
-interactiveUI       = error "interactiveUI"
+byteCodeGen    = error "stgBindsToInterpSyn"
+loadObjs       = error "loadObjs"
+resolveObjs    = error "loadObjs"
+interactiveUI  = error "interactiveUI"
 #endif
diff --git a/ghc/compiler/main/Main.hs b/ghc/compiler/main/Main.hs
index c925ede..21b506d 100644
--- a/ghc/compiler/main/Main.hs
+++ b/ghc/compiler/main/Main.hs
@@ -1,6 +1,6 @@
 {-# OPTIONS -fno-warn-incomplete-patterns #-}
 -----------------------------------------------------------------------------
--- $Id: Main.hs,v 1.39 2000/12/12 14:42:43 simonmar Exp $
+-- $Id: Main.hs,v 1.40 2000/12/18 15:18:11 simonmar Exp $
 --
 -- GHC Driver program
 --
@@ -84,7 +84,6 @@ import Maybe
 -- No more "Enter your Haskell program, end with ^D (on a line of its own):"
 -- consistency checking removed (may do this properly later)
 -- removed -noC
--- no hi diffs (could be added later)
 -- no -Ofile
 
 -----------------------------------------------------------------------------