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
a663e678
Commit
a663e678
authored
May 09, 2005
by
simonmar
Browse files
[project @ 2005-05-09 10:18:05 by simonmar]
printAllThreads: handle ThreadRelocated
parent
32baf1e3
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/Schedule.c
View file @
a663e678
...
...
@@ -4160,7 +4160,7 @@ printAllThreads(void)
debugBelch
(
"all threads:
\n
"
);
# endif
for
(
t
=
all_threads
;
t
!=
END_TSO_QUEUE
;
t
=
t
->
global_link
)
{
for
(
t
=
all_threads
;
t
!=
END_TSO_QUEUE
;
)
{
debugBelch
(
"
\t
thread %d @ %p "
,
t
->
id
,
(
void
*
)
t
);
#if defined(DEBUG)
{
...
...
@@ -4168,8 +4168,14 @@ printAllThreads(void)
if
(
label
)
debugBelch
(
"[
\"
%s
\"
] "
,(
char
*
)
label
);
}
#endif
printThreadStatus
(
t
);
debugBelch
(
"
\n
"
);
if
(
t
->
what_next
==
ThreadRelocated
)
{
debugBelch
(
"has been relocated...
\n
"
);
t
=
t
->
link
;
}
else
{
printThreadStatus
(
t
);
debugBelch
(
"
\n
"
);
t
=
t
->
global_link
;
}
}
}
...
...
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