From 4adc53ff5eb66b6beef9b38e18f23d00de2d56b4 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 13 Mar 2009 15:56:19 +0000
Subject: [PATCH] eliminate some not-quite-duplicate code
---
rts/RaiseAsync.c | 11 +----------
1 file changed, 1 insertion(+), 10 deletions(-)
diff --git a/rts/RaiseAsync.c b/rts/RaiseAsync.c
index 2f072d551a75..a31562224db8 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);
}
/* -----------------------------------------------------------------------------
--
GitLab