From 0894f39bbd63499b07c80e78cf0429a191c107d3 Mon Sep 17 00:00:00 2001
From: sof <unknown>
Date: Thu, 14 Feb 2002 07:31:03 +0000
Subject: [PATCH] [project @ 2002-02-14 07:31:03 by sof] Time stubs (for
 mingw)

---
 cbits/timeUtils.c   |   15 +++++++++++++++
 include/timeUtils.h |   12 ++++++++++++
 2 files changed, 27 insertions(+)
 create mode 100644 cbits/timeUtils.c
 create mode 100644 include/timeUtils.h

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__ */
-- 
1.7.10.4