From 3072ee8dfd68c5a89d4c756ba0dabbc84670a8e4 Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Fri, 15 Aug 2003 12:43:57 +0000
Subject: [PATCH] [project @ 2003-08-15 12:43:57 by simonmar] Fix a bug in
 forkProcess: the current thread should not be on the run
 queue while it is running.

Merged from STABLE (1.169.2.1).
---
 ghc/rts/Schedule.c |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c
index 3ef1224..c58584f 100644
--- a/ghc/rts/Schedule.c
+++ b/ghc/rts/Schedule.c
@@ -1,5 +1,5 @@
 /* ---------------------------------------------------------------------------
- * $Id: Schedule.c,v 1.172 2003/07/12 00:09:15 sof Exp $
+ * $Id: Schedule.c,v 1.173 2003/08/15 12:43:57 simonmar Exp $
  *
  * (c) The GHC Team, 1998-2000
  *
@@ -1513,7 +1513,7 @@ forkProcess(StgTSO* tso)
     
   } else { /* child */
   /* wipe all other threads */
-  run_queue_hd = run_queue_tl = tso;
+  run_queue_hd = run_queue_tl = END_TSO_QUEUE;
   tso->link = END_TSO_QUEUE;
 
   /* When clearing out the threads, we need to ensure
-- 
1.7.10.4