From: Ian Lynagh <igloo@earth.li>
Date: Sat, 16 Aug 2008 15:21:35 +0000 (+0000)
Subject: When doing :l, abandon all breakpoints before we unload everything
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=ee7fcd7239ebb5b301e075034a8ff700cd5f40c9;p=ghc-hetmet.git

When doing :l, abandon all breakpoints before we unload everything
I'm not 100% sure if this is the right fix, but it seems sensible and
stops break008 segfaulting for me on amd64/Linux.
---

diff --git a/compiler/ghci/InteractiveUI.hs b/compiler/ghci/InteractiveUI.hs
index 896728b..6f9c224 100644
--- a/compiler/ghci/InteractiveUI.hs
+++ b/compiler/ghci/InteractiveUI.hs
@@ -1053,6 +1053,7 @@ loadModule' files = do
   prev_context <- io $ GHC.getContext session
 
   -- unload first
+  io $ GHC.abandonAll session
   discardActiveBreakPoints
   io (GHC.setTargets session [])
   io (GHC.load session LoadAllTargets)