[project @ 2000-06-30 19:12:21 by panne]

[ghc-hetmet.git] / ghc / lib / std / cbits / timezone.c

diff --git a/ghc/lib/std/cbits/timezone.c b/ghc/lib/std/cbits/timezone.c
index b03f2df..a54bc1d 100644 (file)
--- 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.4 1999/09/12 14:26:32 sof Exp $
+ * $Id: timezone.c,v 1.6 1999/12/08 15:47:08 simonmar Exp $
  *
  * Timezone Runtime Support
  */
@@ -22,14 +22,15 @@ StgInt get_tm_isdst ( StgAddr x ) { return ((struct tm*)x)->tm_isdst; }
 StgAddr prim_ZONE    ( StgAddr x ) { return ZONE(x);   }
 StgInt prim_GMTOFF  ( StgAddr x ) { return GMTOFF(x); }
 
-StgInt prim_SETZONE ( StgAddr x, StgAddr y )
+void 
+prim_SETZONE ( StgAddr x, StgAddr y )
 {
   SETZONE(x,y);
 }
 
 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)); }
+StgInt sizeof_time_t    ( void ) { return (sizeof(time_t) / sizeof(int)); }
 
 char*
 get_ZONE (StgAddr x)