[project @ 2000-02-24 12:34:18 by sewardj]

#ifdef wurbles to aid Win32 compilation.

diff --git a/ghc/interpreter/interface.c b/ghc/interpreter/interface.c
index 6750bf3..da604fc 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.31 $
- * $Date: 2000/02/14 11:13:11 $
+ * $Revision: 1.32 $
+ * $Date: 2000/02/24 12:34:18 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -2570,8 +2570,8 @@ Type type; {
       Sym(shutdownHaskellAndExit)    \
 
 
-/* AJG Hack */
-#if 0
+/* AJG Hack; for the moment, make EXTERN_SYMS vanish on Win32 */
+#ifdef _WIN32
 #undef EXTERN_SYMS
 #define EXTERN_SYMS
 #endif

diff --git a/ghc/interpreter/link.c b/ghc/interpreter/link.c
index d15a756..d806a1d 100644 (file)
--- a/ghc/interpreter/link.c
+++ b/ghc/interpreter/link.c
@@ -9,8 +9,8 @@
  * included in the distribution.
  *
  * $RCSfile: link.c,v $
- * $Revision: 1.43 $
- * $Date: 2000/02/14 11:13:11 $
+ * $Revision: 1.44 $
+ * $Date: 2000/02/24 12:34:19 $
  * ------------------------------------------------------------------------*/
 
 #include "prelude.h"
@@ -759,5 +759,5 @@ assert(nonNull(namePMFail));
 }
 #undef pFun
 
-#include "fooble.c"
+//#include "fooble.c"
 /*-------------------------------------------------------------------------*/