X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FException.cmm;h=39a2abad9a6c44caaaaee55b57d440ccdaca41cd;hb=50c4d03919a9d5c37c14004e964083251f655e93;hp=6815b791739a5fc1c3c5d1e364cd9ea22d3f68fd;hpb=6ea3a1ac9007c48302f886da6923ac68f4e7da6d;p=ghc-hetmet.git

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 6815b79..39a2aba 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -214,6 +214,11 @@ killThreadzh_fast
      * If the exception went to a catch frame, we'll just continue from
      * the handler.
      */
+  loop:
+    if (StgTSO_what_next(target) == ThreadRelocated::I16) {
+        target = StgTSO_link(target);
+        goto loop;
+    }
     if (target == CurrentTSO) {
 	SAVE_THREAD_STATE();
 	/* ToDo: what if the current thread is blocking exceptions? */