From: Simon Marlow <marlowsd@gmail.com>
Date: Wed, 5 May 2010 11:47:46 +0000 (+0000)
Subject: add a MAYBE_GC() in killThread#, fixes throwto003(threaded2) looping
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;ds=sidebyside;h=7f148c3265edb930223f50c3702e33bc51f00bd1;p=ghc-hetmet.git

add a MAYBE_GC() in killThread#, fixes throwto003(threaded2) looping
---

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 55c79ce..af84692 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -218,6 +218,8 @@ stg_killThreadzh
     
     /* Needs 3 words because throwToSingleThreaded uses some stack */
     STK_CHK_GEN( WDS(3), R1_PTR & R2_PTR, stg_killThreadzh);
+    /* We call allocate in throwTo(), so better check for GC */
+    MAYBE_GC(R1_PTR & R2_PTR, stg_killThreadzh);
 
     /* 
      * We might have killed ourselves.  In which case, better be *very*