From 4aedbf70883538ce30a0354d40c47e6db8466b0f Mon Sep 17 00:00:00 2001
From: Simon Marlow <simonmar@microsoft.com>
Date: Thu, 10 May 2007 14:42:29 +0000
Subject: [PATCH] FIX: loading the ghc package under GHCi

---
 rts/Linker.c |    3 +++
 1 file changed, 3 insertions(+)

diff --git a/rts/Linker.c b/rts/Linker.c
index 58ee939..adac091 100644
--- a/rts/Linker.c
+++ b/rts/Linker.c
@@ -527,6 +527,7 @@ typedef struct _RtsSymbolVal {
       SymX(initLinker)				\
       SymX(unpackClosurezh_fast)                \
       SymX(getApStackValzh_fast)                \
+      SymX(getStackFramezh_fast)                \
       SymX(int2Integerzh_fast)			\
       SymX(integer2Intzh_fast)			\
       SymX(integer2Wordzh_fast)			\
@@ -710,6 +711,8 @@ typedef struct _RtsSymbolVal {
       SymX(getAllocations)                      \
       SymX(revertCAFs)                          \
       SymX(RtsFlags)                            \
+      Sym(breakPointIOAction)			\
+      Sym(rts_setStepFlag)			\
       RTS_USER_SIGNALS_SYMBOLS
 
 #ifdef SUPPORT_LONG_LONGS
-- 
1.7.10.4