From 2507462b118dab9fd9a79f90d3f878d1102d9ca2 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Sun, 12 Sep 1999 14:23:52 +0000
Subject: [PATCH] [project @ 1999-09-12 14:23:52 by sof] timezone.h

---
 ghc/lib/std/cbits/timezone.c |   14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/ghc/lib/std/cbits/timezone.c b/ghc/lib/std/cbits/timezone.c
index 1b317c1..1fdbcfe 100644
--- a/ghc/lib/std/cbits/timezone.c
+++ b/ghc/lib/std/cbits/timezone.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: timezone.c,v 1.2 1998/12/02 13:28:00 simonm Exp $
+ * $Id: timezone.c,v 1.3 1999/09/12 14:23:52 sof Exp $
  *
  * Timezone Runtime Support
  */
@@ -31,3 +31,15 @@ StgInt sizeof_word      ( void ) { return (sizeof(unsigned int)); }
 StgInt sizeof_struct_tm	( void ) { return (sizeof(struct tm)); }
 StgInt sizeof_time_t    ( void ) { return (sizeof(time_t)); }
 
+char*
+get_ZONE (StgAddr x)
+{
+#ifdef cygwin32_TARGET_OS
+  /* 
+   * tzname[] isn't properly initialised under cygwin B20.1 
+   * unless tzset() is called, so better do it here.
+   */
+  tzset();
+#endif
+  return (ZONE(x));
+}
-- 
1.7.10.4