From c6957c09775deb40fb9da7c85df6f7610d164ee0 Mon Sep 17 00:00:00 2001
From: qrczak <unknown>
Date: Mon, 2 Apr 2001 07:22:50 +0000
Subject: [PATCH] [project @ 2001-04-02 07:22:50 by qrczak] Add a bunch of
 symbols from RtsAPI.

---
 ghc/rts/Linker.c |   39 ++++++++++++++++++++++++++++++++++-----
 1 file changed, 34 insertions(+), 5 deletions(-)

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index b72945f..2271906 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.35 2001/03/29 13:00:43 simonmar Exp $
+ * $Id: Linker.c,v 1.36 2001/04/02 07:22:50 qrczak Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -138,7 +138,7 @@ typedef struct _RtsSymbolVal {
       SymX(stackOverflow)			\
       SymX(int2Integerzh_fast)			\
       SymX(word2Integerzh_fast)			\
-      Maybe_ForeignObj              			\
+      Maybe_ForeignObj				\
       SymX(__encodeDouble)			\
       SymX(decodeDoublezh_fast)			\
       SymX(decodeFloatzh_fast)			\
@@ -159,7 +159,7 @@ typedef struct _RtsSymbolVal {
       SymX(orIntegerzh_fast)			\
       SymX(xorIntegerzh_fast)			\
       SymX(complementIntegerzh_fast)		\
-      Maybe_Stable_Names                                  \
+      Maybe_Stable_Names			\
       SymX(blockAsyncExceptionszh_fast)		\
       SymX(unblockAsyncExceptionszh_fast)	\
       SymX(isDoubleNaN)				\
@@ -206,12 +206,41 @@ typedef struct _RtsSymbolVal {
       SymX(stg_sig_install)			\
       Sym(nocldstop)				\
       SymX(createAdjustor)			\
+      SymX(rts_mkChar)				\
       SymX(rts_mkInt)				\
+      SymX(rts_mkInt8)				\
+      SymX(rts_mkInt16)				\
+      SymX(rts_mkInt32)				\
+      SymX(rts_mkInt64)				\
+      SymX(rts_mkWord)				\
+      SymX(rts_mkWord8)				\
+      SymX(rts_mkWord16)			\
+      SymX(rts_mkWord32)			\
+      SymX(rts_mkWord64)			\
+      SymX(rts_mkPtr)				\
+      SymX(rts_mkFloat)				\
+      SymX(rts_mkDouble)			\
       SymX(rts_mkStablePtr)			\
+      SymX(rts_mkBool)				\
+      SymX(rts_mkString)			\
       SymX(rts_apply)				\
+      SymX(rts_mkAddr)				\
+      SymX(rts_getChar)				\
+      SymX(rts_getInt)				\
+      SymX(rts_getInt32)			\
+      SymX(rts_getWord)				\
+      SymX(rts_getWord32)			\
+      SymX(rts_getPtr)				\
+      SymX(rts_getFloat)			\
+      SymX(rts_getDouble)			\
+      SymX(rts_getStablePtr)			\
+      SymX(rts_getBool)				\
+      SymX(rts_getAddr)				\
+      SymX(rts_eval)				\
+      SymX(rts_eval_)				\
       SymX(rts_evalIO)				\
-      SymX(rts_checkSchedStatus)		\
-      SymX(rts_getInt)
+      SymX(rts_evalLazyIO)			\
+      SymX(rts_checkSchedStatus)
 
 #ifndef SUPPORT_LONG_LONGS
 #define RTS_LONG_LONG_SYMS /* nothing */
-- 
1.7.10.4