From a4e09e8f27b81e915b128ef244c7b0d082bfb89a Mon Sep 17 00:00:00 2001
From: Simon Marlow <simonmarhaskell@gmail.com>
Date: Thu, 17 Apr 2008 18:00:16 +0000
Subject: tso->link is now tso->_link  (fix after merge with HEAD)

---
 rts/Exception.cmm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'rts/Exception.cmm')

diff --git a/rts/Exception.cmm b/rts/Exception.cmm
index 75f2c15d93..cba5d48d72 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) {
-- 
cgit v1.2.1