From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 13 Mar 2009 15:56:19 +0000 (+0000)
Subject: eliminate some not-quite-duplicate code
X-Git-Tag: 2009-06-25~477
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=4adc53ff5eb66b6beef9b38e18f23d00de2d56b4;p=ghc-hetmet.git

eliminate some not-quite-duplicate code
---

diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index 2f072d5..a315622 100644
--- a/rts/RaiseAsync.c
+++ b/rts/RaiseAsync.c
@@ -672,16 +672,7 @@ removeFromQueues(Capability *cap, StgTSO *tso)
   }
 
  done:
-  tso->_link = END_TSO_QUEUE; // no write barrier reqd
-  tso->why_blocked = NotBlocked;
-  tso->block_info.closure = NULL;
-  appendToRunQueue(cap,tso);
-
-  // We might have just migrated this TSO to our Capability:
-  if (tso->bound) {
-      tso->bound->cap = cap;
-  }
-  tso->cap = cap;
+  unblockOne(cap, tso);
 }
 
 /* -----------------------------------------------------------------------------