Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Tobias Decking
GHC
Commits
32baf1e3
Commit
32baf1e3
authored
May 09, 2005
by
simonmar
Browse files
[project @ 2005-05-09 10:10:33 by simonmar]
deleteAllThreads: handle ThreadRelocated
parent
b6dbc349
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/Schedule.c
View file @
32baf1e3
...
...
@@ -2093,8 +2093,12 @@ deleteAllThreads ( void )
StgTSO
*
t
,
*
next
;
IF_DEBUG
(
scheduler
,
sched_belch
(
"deleting all threads"
));
for
(
t
=
all_threads
;
t
!=
END_TSO_QUEUE
;
t
=
next
)
{
next
=
t
->
global_link
;
deleteThread
(
t
);
if
(
t
->
what_next
==
ThreadRelocated
)
{
next
=
t
->
link
;
}
else
{
next
=
t
->
global_link
;
deleteThread
(
t
);
}
}
// The run queue now contains a bunch of ThreadKilled threads. We
...
...
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