From: qrczak <unknown>
Date: Sun, 28 Jan 2001 20:53:38 +0000 (+0000)
Subject: [project @ 2001-01-28 20:53:38 by qrczak]
X-Git-Tag: Approximately_9120_patches~2792
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=eb3451b45e678fd8640df8a731d910213efdeaa8;p=ghc-hetmet.git

[project @ 2001-01-28 20:53:38 by qrczak]
Added rts symbols to the list:
    stg_sig_install, nocldstop, createAdjustor, rts_mkInt,
    rts_mkStablePtr, rts_apply, rts_evalIO, rts_checkSchedStatus,
    rts_getInt, stg_sel_13_upd_info, stg_sel_14_upd_info,
    stg_sel_15_upd_info.

Could the list be somehow generated automatically?
---

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 937371f..07924a0 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.13 2001/01/28 17:14:11 simonmar Exp $
+ * $Id: Linker.c,v 1.14 2001/01/28 20:53:38 qrczak Exp $
  *
  * (c) The GHC Team, 2000
  *
@@ -139,6 +139,9 @@ static int ocResolve_PEi386     ( ObjectCode* oc );
       SymX(stg_sel_10_upd_info)			\
       SymX(stg_sel_11_upd_info)			\
       SymX(stg_sel_12_upd_info)			\
+      SymX(stg_sel_13_upd_info)			\
+      SymX(stg_sel_14_upd_info)			\
+      SymX(stg_sel_15_upd_info)			\
       SymX(stg_upd_frame_info)			\
       SymX(stg_seq_frame_info)			\
       SymX(stg_CAF_BLACKHOLE_info)		\
@@ -232,7 +235,16 @@ static int ocResolve_PEi386     ( ObjectCode* oc );
       SymX(PatErrorHdrHook)			\
       SymX(defaultsHook)			\
       SymX(PreTraceHook)			\
-      SymX(PostTraceHook)
+      SymX(PostTraceHook)			\
+      SymX(stg_sig_install)			\
+      Sym(nocldstop)				\
+      SymX(createAdjustor)			\
+      SymX(rts_mkInt)				\
+      SymX(rts_mkStablePtr)			\
+      SymX(rts_apply)				\
+      SymX(rts_evalIO)				\
+      SymX(rts_checkSchedStatus)		\
+      SymX(rts_getInt)
 
 #ifndef SUPPORT_LONG_LONGS
 #define RTS_LONG_LONG_SYMS /* nothing */