[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 (file)
--- 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->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
          }
          releaseCapability(cap);
          return rtsTrue; // tells schedule() to return