From 4e551714553895ce16bc1758027df118c77188b0 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Tue, 19 Dec 2000 13:09:52 +0000
Subject: [PATCH] [project @ 2000-12-19 13:09:52 by sewardj] RENAME
 fptools/ghc/rts/Evaluator.h     to
 fptools/ghc/rts/Interpreter.h

---
 ghc/rts/{Evaluator.h => Interpreter.h} |   15 +++++++++++----
 1 file changed, 11 insertions(+), 4 deletions(-)
 rename ghc/rts/{Evaluator.h => Interpreter.h} (93%)

diff --git a/ghc/rts/Evaluator.h b/ghc/rts/Interpreter.h
similarity index 93%
rename from ghc/rts/Evaluator.h
rename to ghc/rts/Interpreter.h
index 84a44b8..6b48864 100644
--- a/ghc/rts/Evaluator.h
+++ b/ghc/rts/Interpreter.h
@@ -1,12 +1,19 @@
 /* -----------------------------------------------------------------------------
- * $Id: Evaluator.h,v 1.9 2000/12/14 15:19:47 sewardj Exp $
+ * $Id: Interpreter.h,v 1.1 2000/12/19 13:09:52 sewardj Exp $
  *
- * (c) The GHC Team, 1998-1999
+ * (c) The GHC Team, 1998-2000.
  *
- * Prototypes for functions in Evaluator.c
+ * Prototypes for functions in Interpreter.c
  *
  * ---------------------------------------------------------------------------*/
 
+#ifdef GHCI
+
+extern StgThreadReturnCode interpretBCO ( Capability* cap );
+
+#endif
+
+#if 0
 /* --------------------------------------------------------------------------
  * Sizes of objects it constructs
  * (used by Assembler)
@@ -26,7 +33,6 @@
  * 
  * ------------------------------------------------------------------------*/
 
-extern StgThreadReturnCode interpretBCO ( Capability* cap );
 
 extern nat marshall   ( char arg_ty, void* arg );
 extern nat unmarshall ( char res_ty, void* res );
@@ -71,3 +77,4 @@ typedef struct _CallInfo {
 } CallInfo;
 
 #endif
+#endif
-- 
1.7.10.4