From 84370d9372ab03ca58d21122ebfa245d7946b92d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Mon, 10 Feb 2003 10:41:52 +0000
Subject: [PATCH] [project @ 2003-02-10 10:41:52 by simonmar] Add some missing
 symbols.

Should fix several recent test breakages with GHCi.
---
 ghc/rts/Linker.c |    6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/ghc/rts/Linker.c b/ghc/rts/Linker.c
index 47c04e9..e1d1480 100644
--- a/ghc/rts/Linker.c
+++ b/ghc/rts/Linker.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: Linker.c,v 1.112 2003/01/29 09:54:32 simonmar Exp $
+ * $Id: Linker.c,v 1.113 2003/02/10 10:41:52 simonmar Exp $
  *
  * (c) The GHC Team, 2000, 2001
  *
@@ -421,10 +421,12 @@ typedef struct _RtsSymbolVal {
       SymX(rts_getInt)				\
       SymX(rts_getInt32)			\
       SymX(rts_getPtr)				\
+      SymX(rts_getFunPtr)			\
       SymX(rts_getStablePtr)			\
       SymX(rts_getThreadId)			\
       SymX(rts_getWord)				\
       SymX(rts_getWord32)			\
+      SymX(rts_lock)				\
       SymX(rts_mkBool)				\
       SymX(rts_mkChar)				\
       SymX(rts_mkDouble)			\
@@ -435,6 +437,7 @@ typedef struct _RtsSymbolVal {
       SymX(rts_mkInt64)				\
       SymX(rts_mkInt8)				\
       SymX(rts_mkPtr)				\
+      SymX(rts_mkFunPtr)			\
       SymX(rts_mkStablePtr)			\
       SymX(rts_mkString)			\
       SymX(rts_mkWord)				\
@@ -442,6 +445,7 @@ typedef struct _RtsSymbolVal {
       SymX(rts_mkWord32)			\
       SymX(rts_mkWord64)			\
       SymX(rts_mkWord8)				\
+      SymX(rts_unlock)				\
       SymX(run_queue_hd)			\
       SymX(setProgArgv)				\
       SymX(startupHaskell)			\
-- 
1.7.10.4