From: sof <unknown>
Date: Thu, 14 Feb 2002 07:31:03 +0000 (+0000)
Subject: [project @ 2002-02-14 07:31:03 by sof]
X-Git-Tag: nhc98-1-18-release~1120
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=0894f39bbd63499b07c80e78cf0429a191c107d3;p=ghc-base.git

[project @ 2002-02-14 07:31:03 by sof]
Time stubs (for mingw)
---

diff --git a/cbits/timeUtils.c b/cbits/timeUtils.c
new file mode 100644
index 0000000..ca868e2
--- /dev/null
+++ b/cbits/timeUtils.c
@@ -0,0 +1,15 @@
+/* 
+ * (c) The University of Glasgow 2002
+ *
+ * Time Runtime Support
+ */
+#include "HsBase.h"
+
+#if defined(mingw32_TARGET_OS) /* to the end */
+
+HsAddr __hscore_timezone( void )
+{ return (HsAddr)&_timezone; }
+
+HsAddr __hscore_tzname( void )
+{ return (HsAddr)_tzname; }
+#endif
diff --git a/include/timeUtils.h b/include/timeUtils.h
new file mode 100644
index 0000000..1f6ffff
--- /dev/null
+++ b/include/timeUtils.h
@@ -0,0 +1,12 @@
+/*
+ * (c) The University of Glasgow 2002
+ *
+ * Time Runtime Support
+ */
+#ifndef __TIMEUTILS_H__
+#define __TIMEUTILS_H__
+
+extern HsAddr __hscore_timezone( void );
+extern HsAddr __hscore_tzname( void );
+
+#endif /* __DIRUTILS_H__ */