From: sewardj Date: Wed, 12 Apr 2000 09:43:10 +0000 (+0000) Subject: [project @ 2000-04-12 09:43:10 by sewardj] X-Git-Tag: Approximately_9120_patches~4728 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=bc7785a9e98569b12b7331e2e45a3f88b72a4011;p=ghc-hetmet.git [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 --- 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 --- 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)