Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
1e2ed492
Commit
1e2ed492
authored
Feb 26, 1999
by
simonm
Browse files
[project @ 1999-02-26 12:32:51 by simonm]
Fix run queue corruption bug.
parent
4d699d41
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/Schedule.c
View file @
1e2ed492
/* -----------------------------------------------------------------------------
* $Id: Schedule.c,v 1.
9
1999/02/
05 16:0
2:5
3
simonm Exp $
* $Id: Schedule.c,v 1.
10
1999/02/
26 12:3
2:5
1
simonm Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -509,16 +509,17 @@ SchedulerStatus schedule(StgTSO *main, StgClosure **ret_val)
* t->link is already set to END_TSO_QUEUE.
*/
ASSERT
(
t
->
link
==
END_TSO_QUEUE
);
if
(
run_queue_tl
!=
END_TSO_QUEUE
)
{
if
(
run_queue_tl
==
END_TSO_QUEUE
)
{
run_queue_hd
=
run_queue_tl
=
t
;
}
else
{
ASSERT
(
get_itbl
(
run_queue_tl
)
->
type
==
TSO
);
if
(
run_queue_hd
==
run_queue_tl
)
{
run_queue_hd
->
link
=
t
;
run_queue_tl
=
t
;
}
else
{
run_queue_tl
->
link
=
t
;
run_queue_tl
=
t
;
}
}
else
{
run_queue_hd
=
run_queue_tl
=
t
;
}
break
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment