Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Shayne Fletcher
Glasgow Haskell Compiler
Commits
c435fef8
Commit
c435fef8
authored
Feb 15, 2005
by
simonmar
Browse files
[project @ 2005-02-15 11:39:52 by simonmar]
remove race conditions in the recent in_haskell sanity check code
parent
ec1c2c02
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/Schedule.c
View file @
c435fef8
...
...
@@ -1600,10 +1600,10 @@ suspendThread( StgRegTable *reg )
IF_DEBUG
(
scheduler
,
sched_belch
(
"worker (token %d): leaving RTS"
,
tok
));
#endif
in_haskell
=
rtsFalse
;
RELEASE_LOCK
(
&
sched_mutex
);
errno
=
saved_errno
;
in_haskell
=
rtsFalse
;
return
tok
;
}
...
...
@@ -1648,9 +1648,9 @@ resumeThread( StgInt tok )
tso
->
why_blocked
=
NotBlocked
;
cap
->
r
.
rCurrentTSO
=
tso
;
in_haskell
=
rtsTrue
;
RELEASE_LOCK
(
&
sched_mutex
);
errno
=
saved_errno
;
in_haskell
=
rtsTrue
;
return
&
cap
->
r
;
}
...
...
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