From: Simon Marlow <simonmarhaskell@gmail.com>
Date: Thu, 17 Apr 2008 18:00:16 +0000 (+0000)
Subject: tso->link is now tso->_link  (fix after merge with HEAD)
X-Git-Tag: Before_cabalised-GHC~188
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=a4e09e8f27b81e915b128ef244c7b0d082bfb89a

tso->link is now tso->_link  (fix after merge with HEAD)
---

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 75f2c15..cba5d48 100644
--- a/rts/Exception.cmm
+++ b/rts/Exception.cmm
@@ -222,7 +222,7 @@ killThreadzh_fast
      */
   loop:
     if (StgTSO_what_next(target) == ThreadRelocated::I16) {
-        target = StgTSO_link(target);
+        target = StgTSO__link(target);
         goto loop;
     }
     if (target == CurrentTSO) {