From: simonmar <unknown>
Date: Tue, 19 Apr 2005 14:24:55 +0000 (+0000)
Subject: [project @ 2005-04-19 14:24:55 by simonmar]
X-Git-Tag: Initial_conversion_from_CVS_complete~719
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=1996af4376c70c8fa33b1a4068fe613523517b90;p=ghc-hetmet.git

[project @ 2005-04-19 14:24:55 by simonmar]
main_thread double-linkage bug
---

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index a5f133e..079238d 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1807,7 +1807,7 @@ scheduleHandleThreadFinished( StgMainThread *mainThread
 	      mainThread->prev->link = mainThread->link;
 	  }
 	  if (mainThread->link != NULL) {
-	      mainThread->link->prev = NULL;
+	      mainThread->link->prev = mainThread->prev;
 	  }
 	  releaseCapability(cap);
 	  return rtsTrue; // tells schedule() to return