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
3d7ffacd
Commit
3d7ffacd
authored
Dec 02, 2010
by
Simon Marlow
Browse files
removeThreadFromQueue: stub out the link field before returning (
#4813
)
parent
42c62ec7
Changes
1
Hide whitespace changes
Inline
Side-by-side
rts/Threads.c
View file @
3d7ffacd
...
...
@@ -163,9 +163,11 @@ removeThreadFromQueue (Capability *cap, StgTSO **queue, StgTSO *tso)
if
(
t
==
tso
)
{
if
(
prev
)
{
setTSOLink
(
cap
,
prev
,
t
->
_link
);
t
->
_link
=
END_TSO_QUEUE
;
return
rtsFalse
;
}
else
{
*
queue
=
t
->
_link
;
t
->
_link
=
END_TSO_QUEUE
;
return
rtsTrue
;
}
}
...
...
@@ -190,7 +192,8 @@ removeThreadFromDeQueue (Capability *cap,
*
head
=
t
->
_link
;
flag
=
rtsTrue
;
}
if
(
*
tail
==
tso
)
{
t
->
_link
=
END_TSO_QUEUE
;
if
(
*
tail
==
tso
)
{
if
(
prev
)
{
*
tail
=
prev
;
}
else
{
...
...
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