X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FException.cmm;h=af846928b5e22ea5e1ce906be9bc2e26672a81ed;hb=661c97c65e5fa47177502e592bb763f752b487ac;hp=55c79cede7890d08b5d41d17e3a00eebf95a7c9e;hpb=7408b39235bccdcde48df2a73337ff976fbc09b7;p=ghc-hetmet.git

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*