2 * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
4 * $Id: timezone.c,v 1.6 1999/12/08 15:47:08 simonmar Exp $
6 * Timezone Runtime Support
13 StgInt get_tm_sec ( StgAddr x ) { return ((struct tm*)x)->tm_sec; }
14 StgInt get_tm_min ( StgAddr x ) { return ((struct tm*)x)->tm_min; }
15 StgInt get_tm_hour ( StgAddr x ) { return ((struct tm*)x)->tm_hour; }
16 StgInt get_tm_mday ( StgAddr x ) { return ((struct tm*)x)->tm_mday; }
17 StgInt get_tm_mon ( StgAddr x ) { return ((struct tm*)x)->tm_mon; }
18 StgInt get_tm_year ( StgAddr x ) { return ((struct tm*)x)->tm_year; }
19 StgInt get_tm_wday ( StgAddr x ) { return ((struct tm*)x)->tm_wday; }
20 StgInt get_tm_yday ( StgAddr x ) { return ((struct tm*)x)->tm_yday; }
21 StgInt get_tm_isdst ( StgAddr x ) { return ((struct tm*)x)->tm_isdst; }
22 StgAddr prim_ZONE ( StgAddr x ) { return ZONE(x); }
23 StgInt prim_GMTOFF ( StgAddr x ) { return GMTOFF(x); }
26 prim_SETZONE ( StgAddr x, StgAddr y )
31 StgInt sizeof_word ( void ) { return (sizeof(unsigned int)); }
32 StgInt sizeof_struct_tm ( void ) { return (sizeof(struct tm)); }
33 StgInt sizeof_time_t ( void ) { return (sizeof(time_t) / sizeof(int)); }
38 #ifdef cygwin32_TARGET_OS
40 * tzname[] isn't properly initialised under cygwin B20.1
41 * unless tzset() is called, so better do it here.