[project @ 2001-01-12 16:16:36 by simonmar]

Time library FFI'd.

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