diff --git a/ghc/interpreter/interface.c b/ghc/interpreter/interface.c index 6750bf36f8916a4bdedd9d20394c18df8758aeeb..da604fcd79a0db6d85c2a7fe094a2c05c1ac082d 100644 --- 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 d15a756c98f19f7bde2f907182c59bd89085fec0..d806a1d46cb508f50c07cbc4b4747e1b33716916 100644 --- 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" /*-------------------------------------------------------------------------*/