From: sof <unknown>
Date: Sun, 12 Sep 1999 14:23:52 +0000 (+0000)
Subject: [project @ 1999-09-12 14:23:52 by sof]
X-Git-Tag: Approximately_9120_patches~5831
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=2507462b118dab9fd9a79f90d3f878d1102d9ca2;p=ghc-hetmet.git

[project @ 1999-09-12 14:23:52 by sof]
timezone.h
---

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));
+}