disambiguate uses of foldr for nhc98 to compile without errors

[haskell-directory.git] / include / HsBase.h

diff --git a/include/HsBase.h b/include/HsBase.h
index 143b29d..2e101dd 100644 (file)
--- a/include/HsBase.h
+++ b/include/HsBase.h
@@ -20,6 +20,11 @@
 #undef PACKAGE_TARNAME
 #undef PACKAGE_VERSION
 
+/* Needed to get the macro version of errno on some OSs (eg. Solaris).
+   We must do this, because these libs are only compiled once, but
+   must work in both single-threaded and multi-threaded programs. */
+#define _REENTRANT 1
+
 #include "HsFFI.h"
 
 #include <stdio.h>
@@ -453,14 +458,6 @@ __hscore_PrelHandle_recv( HsInt fd, HsAddr ptr, HsInt off, int sz )
 
 #endif /* __GLASGOW_HASKELL__ */
 
-#if defined(mingw32_HOST_OS) || defined(_MSC_VER)
-INLINE long *
-__hscore_Time_ghcTimezone( void ) { return &_timezone; }
-
-INLINE char **
-__hscore_Time_ghcTzname( void ) { return _tzname; }
-#endif
-
 INLINE HsInt
 __hscore_mkdir( HsAddr pathName, HsInt mode )
 {