[project @ 2000-04-12 09:43:10 by sewardj]

Cygwin wibbles.

diff --git a/ghc/interpreter/interface.c b/ghc/interpreter/interface.c
index eb9b493..b70105f 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.52 $
- * $Date: 2000/04/11 20:44:18 $
+ * $Revision: 1.53 $
+ * $Date: 2000/04/12 09:43:10 $
  * ------------------------------------------------------------------------*/
 
 #include "hugsbasictypes.h"
@@ -2656,7 +2656,13 @@ Type type; {
       Sym(pow)                       \
       Sym(__errno)                   \
       Sym(stat)                      \
-      Sym(fstat)
+      Sym(fstat)                     \
+      Sym(gettimeofday)              \
+      SymX(localtime)                \
+      SymX(strftime)                 \
+      SymX(mktime)                   \
+      SymX(gmtime)
+
 
 #define EXTERN_SYMS_linux            \
       Sym(__errno_location)          \

diff --git a/ghc/interpreter/machdep.c b/ghc/interpreter/machdep.c
index c24076e..0ceff72 100644 (file)
--- a/ghc/interpreter/machdep.c
+++ b/ghc/interpreter/machdep.c
@@ -13,8 +13,8 @@
  * included in the distribution.
  *
  * $RCSfile: machdep.c,v $
- * $Revision: 1.29 $
- * $Date: 2000/04/10 15:39:09 $
+ * $Revision: 1.30 $
+ * $Date: 2000/04/12 09:43:10 $
  * ------------------------------------------------------------------------*/
 
 #ifdef HAVE_SIGNAL_H
@@ -207,12 +207,12 @@ static Void   local searchStr     ( String );
 static Bool   local tryEndings    ( String );
 
 #if (DOS_FILENAMES || __CYGWIN32__) 
-# define SLASH                   '\\'
-# define SLASH_STR               "\\"
+# define SLASH                   '/'
+# define SLASH_STR               "/"
 # define isSLASH(c)              ((c)=='\\' || (c)=='/')
 # define PATHSEP                 ';'
 # define PATHSEP_STR             ";"
-# define DLL_ENDING              ".dll"
+# define DLL_ENDING              ".u_o"
 #elif MAC_FILENAMES
 # define SLASH                   ':'
 # define isSLASH(c)              ((c)==SLASH)