X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FLinker.c;h=243eae1b76f8a176ceedf00cca1fee332aa3167a;hb=d4050431de1adddedb240e497f77f89301f77070;hp=3b7324de7c35e8df46c47982f975349bd98f6bdc;hpb=4d7f33a5ea53c2bf5900785dc3946c13c04430c1;p=ghc-hetmet.git

diff --git a/rts/Linker.c b/rts/Linker.c
index 3b7324d..243eae1 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -256,6 +256,12 @@ typedef struct _RtsSymbolVal {
 #define RTS_MINGW_EXTRA_SYMS
 #endif
 
+#if HAVE_GETTIMEOFDAY
+#define RTS_MINGW_GETTIMEOFDAY_SYM Sym(gettimeofday)
+#else
+#define RTS_MINGW_GETTIMEOFDAY_SYM /**/
+#endif
+
 /* These are statically linked from the mingw libraries into the ghc
    executable, so we have to employ this hack. */
 #define RTS_MINGW_ONLY_SYMBOLS                  \
@@ -339,6 +345,7 @@ typedef struct _RtsSymbolVal {
       Sym(readdir)                              \
       Sym(rewinddir)                            \
       RTS_MINGW_EXTRA_SYMS                      \
+      RTS_MINGW_GETTIMEOFDAY_SYM		\
       Sym(closedir)
 #endif
 
@@ -516,6 +523,7 @@ typedef struct _RtsSymbolVal {
       SymX(genSymZh)				\
       SymX(genericRaise)			\
       SymX(getProgArgv)				\
+      SymX(getFullProgArgv)				\
       SymX(getStablePtr)			\
       SymX(hs_init)				\
       SymX(hs_exit)				\
@@ -710,8 +718,9 @@ typedef struct _RtsSymbolVal {
       SymX(getAllocations)                      \
       SymX(revertCAFs)                          \
       SymX(RtsFlags)                            \
-      Sym(breakPointIOAction)			\
-      Sym(rts_setStepFlag)			\
+      SymX(rts_breakpoint_io_action)		\
+      SymX(rts_stop_next_breakpoint)		\
+      SymX(rts_stop_on_exception)		\
       RTS_USER_SIGNALS_SYMBOLS
 
 #ifdef SUPPORT_LONG_LONGS