diff options
| author | simonmar <unknown> | 2003-08-15 12:43:57 +0000 |
|---|---|---|
| committer | simonmar <unknown> | 2003-08-15 12:43:57 +0000 |
| commit | 3072ee8dfd68c5a89d4c756ba0dabbc84670a8e4 (patch) | |
| tree | 99985247101816f89282a98b088cdf7fa30dfe93 | |
| parent | 060cb7d9e3a84fc00b5bdbaa0cb31cebb554b20c (diff) | |
| download | haskell-3072ee8dfd68c5a89d4c756ba0dabbc84670a8e4.tar.gz | |
[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).
| -rw-r--r-- | ghc/rts/Schedule.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/ghc/rts/Schedule.c b/ghc/rts/Schedule.c index 3ef12246bf..c58584f693 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 |