diff options
Diffstat (limited to 'ghc/lib/std/cbits/timezone.c')
-rw-r--r-- | ghc/lib/std/cbits/timezone.c | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/ghc/lib/std/cbits/timezone.c b/ghc/lib/std/cbits/timezone.c deleted file mode 100644 index a54bc1de49..0000000000 --- a/ghc/lib/std/cbits/timezone.c +++ /dev/null @@ -1,47 +0,0 @@ -/* - * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998 - * - * $Id: timezone.c,v 1.6 1999/12/08 15:47:08 simonmar Exp $ - * - * Timezone Runtime Support - */ - -#include "Rts.h" -#include "stgio.h" -#include "timezone.h" - -StgInt get_tm_sec ( StgAddr x ) { return ((struct tm*)x)->tm_sec; } -StgInt get_tm_min ( StgAddr x ) { return ((struct tm*)x)->tm_min; } -StgInt get_tm_hour ( StgAddr x ) { return ((struct tm*)x)->tm_hour; } -StgInt get_tm_mday ( StgAddr x ) { return ((struct tm*)x)->tm_mday; } -StgInt get_tm_mon ( StgAddr x ) { return ((struct tm*)x)->tm_mon; } -StgInt get_tm_year ( StgAddr x ) { return ((struct tm*)x)->tm_year; } -StgInt get_tm_wday ( StgAddr x ) { return ((struct tm*)x)->tm_wday; } -StgInt get_tm_yday ( StgAddr x ) { return ((struct tm*)x)->tm_yday; } -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); } - -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) / sizeof(int)); } - -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)); -} |