[project @ 2000-03-10 14:53:00 by sewardj]

[ghc-hetmet.git] / ghc / interpreter / interface.c

diff --git a/ghc/interpreter/interface.c b/ghc/interpreter/interface.c
index 15f6803..0d8afef 100644 (file)
--- a/ghc/interpreter/interface.c
+++ b/ghc/interpreter/interface.c
@@ -7,8 +7,8 @@
  * Hugs version 1.4, December 1997
  *
  * $RCSfile: interface.c,v $
- * $Revision: 1.34 $
- * $Date: 2000/03/07 16:18:25 $
+ * $Revision: 1.36 $
+ * $Date: 2000/03/10 14:53:00 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -24,8 +24,6 @@
 /*#define DEBUG_IFACE*/
 #define VERBOSE FALSE
 
-extern void print ( Cell, Int );
-
 /* --------------------------------------------------------------------------
  * (This comment is now out of date.  JRS, 991216).
  * The "addGHC*" functions act as "impedence matchers" between GHC
@@ -2492,24 +2490,6 @@ Type type; {
  * General object symbol query stuff
  * ------------------------------------------------------------------------*/
 
-#if defined(linux_TARGET_OS)
-#define IF_linux(xxx)     xxx
-#define IF_cygwin32(xxx)  /**/
-#define IF_solaris2(xxx)  /**/
-#endif
-
-#if defined(solaris2_TARGET_OS)
-#define IF_linux(xxx)     /**/
-#define IF_cygwin32(xxx)  /**/
-#define IF_solaris2(xxx)  xxx
-#endif
-
-#if defined(cgywin32_TARGET_OS)
-#define IF_linux(xxx)     /**/
-#define IF_cygwin32(xxx)  xxx
-#define IF_solaris2(xxx)  /**/
-#endif
-
 #define EXTERN_SYMS_ALLPLATFORMS     \
       Sym(stg_gc_enter_1)            \
       Sym(stg_gc_noregs)             \
@@ -2688,18 +2668,17 @@ Type type; {
       Sym(stat)                      \
       Sym(fstat)
 
-
-#if 0
+#define EXTERN_SYMS_linux            \
       Sym(__errno_location)          \
       Sym(__xstat)                   \
       Sym(__fxstat)                  \
       Sym(__lxstat)                  \
       SymX(select)                   \
+      SymX(stderr)                   \
       SymX(vfork)                    \
+      SymX(_exit)                    \
       Sym(tzname)                    \
-      SymX(stderr)                   \
 
-#endif
 
 
 #if defined(linux_TARGET_OS)