From: sof <unknown>
Date: Mon, 24 Nov 1997 20:39:34 +0000 (+0000)
Subject: [project @ 1997-11-24 20:39:33 by sof]
X-Git-Tag: Approx_2487_patches~1264
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4fa6dfa51bbb5952023a0a2ec3c536c75bd76ba4;p=ghc-hetmet.git

[project @ 1997-11-24 20:39:33 by sof]
Bogus workaround to get cygwin32-b18 apps using Time compile and link
---

diff --git a/ghc/lib/cbits/timezone.h b/ghc/lib/cbits/timezone.h
index 7ea664c..46b907f 100644
--- a/ghc/lib/cbits/timezone.h
+++ b/ghc/lib/cbits/timezone.h
@@ -19,8 +19,12 @@
 #define SETZONE(x,z)     (((struct tm *)x)->tm_zone = z)
 #define GMTOFF(x)        (((struct tm *)x)->tm_gmtoff)
 #else /* ! HAVE_TM_ZONE */
-# if HAVE_TZNAME
+# if HAVE_TZNAME || cygwin32_TARGET_OS
+#if cygwin32_TARGET_OS
+extern char *tzname;
+#else
 extern char *tzname[2];
+#endif
 #  define ZONE(x)	 (((struct tm *)x)->tm_isdst ? tzname[1] : tzname[0])
 #  define SETZONE(x,z)
 # else /* ! HAVE_TZNAME */
diff --git a/ghc/lib/cbits/toUTCTime.lc b/ghc/lib/cbits/toUTCTime.lc
index cb6bd10..86f449e 100644
--- a/ghc/lib/cbits/toUTCTime.lc
+++ b/ghc/lib/cbits/toUTCTime.lc
@@ -9,6 +9,11 @@
 #include "timezone.h"
 #include "stgio.h"
 
+#ifdef cygwin32_TARGET_OS
+extern char *_tzname;
+char *tzname;
+#endif
+
 StgAddr 
 toUTCTime(I_ size, StgByteArray d, StgByteArray res)
 {