From 7288088604bdec2d096ba11fd69571d27325d887 Mon Sep 17 00:00:00 2001
From: sewardj <unknown>
Date: Thu, 28 Jun 2001 14:26:58 +0000
Subject: [PATCH] [project @ 2001-06-28 14:26:58 by sewardj] Add enough syms
 to get packages  lang text concurrent  into GHCi.

---
 ghc/rts/Linker.c |   34 +++++++++++++++++++++++++++++++++-
 1 file changed, 33 insertions(+), 1 deletion(-)

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)                              \
-- 
1.7.10.4