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
f195b5de
Commit
f195b5de
authored
Jan 30, 2000
by
simonmar
Browse files
[project @ 2000-01-30 10:16:09 by simonmar]
Deal with ThreadRelocated in checkTSO().
parent
84ccb85d
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/Sanity.c
View file @
f195b5de
/* -----------------------------------------------------------------------------
* $Id: Sanity.c,v 1.1
5
2000/01/
13 14:34:04 hwloidl
Exp $
* $Id: Sanity.c,v 1.1
6
2000/01/
30 10:16:09 simonmar
Exp $
*
* (c) The GHC Team, 1998-1999
*
...
...
@@ -471,7 +471,12 @@ checkTSO(StgTSO *tso)
StgOffset
stack_size
=
tso
->
stack_size
;
StgPtr
stack_end
=
stack
+
stack_size
;
if
(
tso
->
whatNext
==
ThreadComplete
||
tso
->
whatNext
==
ThreadKilled
)
{
if
(
tso
->
whatNext
==
ThreadRelocated
)
{
checkTSO
(
tso
->
link
);
return
;
}
if
(
tso
->
whatNext
==
ThreadComplete
||
tso
->
whatNext
==
ThreadKilled
)
{
/* The garbage collector doesn't bother following any pointers
* from dead threads, so don't check sanity here.
*/
...
...
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