From: Simon Marlow <marlowsd@gmail.com>
Date: Tue, 6 Apr 2010 09:14:53 +0000 (+0000)
Subject: Fix bug in popRunQueue
X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=commitdiff_plain;h=9dd9e3c4cc170185e5bbdb7b49eb21c553b9b4fc

Fix bug in popRunQueue
---

diff --git a/rts/Schedule.h b/rts/Schedule.h
index 1e786ce..7760e36 100644
--- a/rts/Schedule.h
+++ b/rts/Schedule.h
@@ -155,7 +155,9 @@ popRunQueue (Capability *cap)
     StgTSO *t = cap->run_queue_hd;
     ASSERT(t != END_TSO_QUEUE);
     cap->run_queue_hd = t->_link;
-    cap->run_queue_hd->block_info.prev = END_TSO_QUEUE;
+    if (t->_link != END_TSO_QUEUE) {
+        t->_link->block_info.prev = END_TSO_QUEUE;
+    }
     t->_link = END_TSO_QUEUE; // no write barrier req'd
     if (cap->run_queue_hd == END_TSO_QUEUE) {
 	cap->run_queue_tl = END_TSO_QUEUE;