From: sewardj <unknown>
Date: Thu, 28 Jun 2001 14:26:58 +0000 (+0000)
Subject: [project @ 2001-06-28 14:26:58 by sewardj]
X-Git-Tag: Approximately_9120_patches~1667
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=7288088604bdec2d096ba11fd69571d27325d887;p=ghc-hetmet.git

[project @ 2001-06-28 14:26:58 by sewardj]
Add enough syms to get packages  lang text concurrent  into GHCi.
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index a45dc68..d9e2b91 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.46 2001/06/27 13:56:01 sewardj Exp $
+ * $Id: Linker.c,v 1.47 2001/06/28 14:26:58 sewardj Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -84,6 +84,38 @@ typedef struct _RtsSymbolVal {
 /* These are statically linked from the mingw libraries into the ghc
    executable, so we have to employ this hack. */
 #define RTS_MINGW_ONLY_SYMBOLS                  \
+      SymX(inet_ntoa)                           \
+      SymX(inet_addr)                           \
+      SymX(htonl)                               \
+      SymX(recvfrom)                            \
+      SymX(listen)                              \
+      SymX(bind)                                \
+      SymX(shutdown)                            \
+      SymX(connect)                             \
+      SymX(htons)                               \
+      SymX(ntohs)                               \
+      SymX(getservbyname)                       \
+      SymX(getservbyport)                       \
+      SymX(getprotobynumber)                    \
+      SymX(getprotobyname)                      \
+      SymX(gethostbyname)                       \
+      SymX(gethostbyaddr)                       \
+      SymX(gethostname)                         \
+      SymX(strcpy)                              \
+      SymX(strncpy)                             \
+      SymX(abort)                               \
+      Sym(_alloca)                              \
+      Sym(isxdigit)                             \
+      Sym(isupper)                              \
+      Sym(ispunct)                              \
+      Sym(islower)                              \
+      Sym(isspace)                              \
+      Sym(isprint)                              \
+      Sym(isdigit)                              \
+      Sym(iscntrl)                              \
+      Sym(isalpha)                              \
+      Sym(isalnum)                              \
+      SymX(strcmp)                              \
       SymX(memmove)                             \
       SymX(realloc)                             \
       SymX(malloc)                              \