[project @ 2000-04-14 15:18:05 by sewardj]

[ghc-hetmet.git] / ghc / interpreter / interface.c

diff --git a/ghc/interpreter/interface.c b/ghc/interpreter/interface.c
index 8e3b9e7..d4719d6 100644 (file)
--- a/ghc/interpreter/interface.c
+++ b/ghc/interpreter/interface.c
@@ -7,8 +7,8 @@
  * Hugs version 1.4, December 1997
  *
  * $RCSfile: interface.c,v $
- * $Revision: 1.49 $
- * $Date: 2000/04/07 16:25:19 $
+ * $Revision: 1.54 $
+ * $Date: 2000/04/14 15:18:06 $
  * ------------------------------------------------------------------------*/
 
 #include "hugsbasictypes.h"
@@ -19,7 +19,6 @@
 
 #include "Assembler.h"  /* for wrapping GHC objects */
 
-
 /*#define DEBUG_IFACE*/
 #define VERBOSE FALSE
 
@@ -2543,7 +2542,7 @@ Type type; {
       Sym(int2Integerzh_fast)        \
       Sym(stg_gc_unbx_r1)            \
       Sym(ErrorHdrHook)              \
-      Sym(makeForeignObjzh_fast)     \
+      Sym(mkForeignObjzh_fast)       \
       Sym(__encodeDouble)            \
       Sym(decodeDoublezh_fast)       \
       Sym(isDoubleNaN)               \
@@ -2609,7 +2608,6 @@ Type type; {
       SymX(lseek)                    \
       SymX(write)                    \
       Sym(getrusage)                 \
-      Sym(gettimeofday)              \
       SymX(realloc)                  \
       SymX(getcwd)                   \
       SymX(free)                     \
@@ -2627,7 +2625,6 @@ Type type; {
       SymX(execl)                    \
       Sym(waitpid)                   \
       SymX(getenv)                   \
-      Sym(chmod)
 
 #define EXTERN_SYMS_cygwin32         \
       SymX(GetCurrentProcess)        \
@@ -2658,7 +2655,13 @@ Type type; {
       Sym(pow)                       \
       Sym(__errno)                   \
       Sym(stat)                      \
-      Sym(fstat)
+      Sym(fstat)                     \
+      Sym(gettimeofday)              \
+      SymX(localtime)                \
+      SymX(strftime)                 \
+      SymX(mktime)                   \
+      SymX(gmtime)
+
 
 #define EXTERN_SYMS_linux            \
       Sym(__errno_location)          \
@@ -2676,7 +2679,11 @@ Type type; {
       SymX(mktime)                   \
       SymX(gmtime)                   \
       Sym(setitimer)                 \
+      Sym(chmod)                     \
+      Sym(gettimeofday)              \
 
+#define EXTERN_SYMS_solaris2         \
+      SymX(gettimeofday)             \
 
 
 #if defined(linux_TARGET_OS)
@@ -2717,7 +2724,6 @@ OSym rtsTab[]
 #undef SymX
 
 
-void init_stack;
 
 
 /* A kludge to assist Win32 debugging. */