Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Alex D
GHC
Commits
fa9c11a2
Commit
fa9c11a2
authored
Mar 17, 2006
by
Simon Marlow
Browse files
fix build for certain picky versions of gcc
parent
e6218fe7
Changes
1
Hide whitespace changes
Inline
Side-by-side
ghc/rts/Task.c
View file @
fa9c11a2
...
...
@@ -171,18 +171,18 @@ boundTaskExiting (Task *task)
IF_DEBUG
(
scheduler
,
sched_belch
(
"task exiting"
));
}
#ifdef THREADED_RTS
#define TASK_ID(t) (t)->id
#else
#define TASK_ID(t) (t)
#endif
void
discardTask
(
Task
*
task
)
{
ASSERT_LOCK_HELD
(
&
sched_mutex
);
if
(
!
task
->
stopped
)
{
IF_DEBUG
(
scheduler
,
sched_belch
(
"discarding task %p"
,
#ifdef THREADED_RTS
(
void
*
)
task
->
id
#else
(
void
*
)
task
#endif
));
IF_DEBUG
(
scheduler
,
sched_belch
(
"discarding task %p"
,
TASK_ID
(
task
)));
task
->
cap
=
NULL
;
task
->
tso
=
NULL
;
task
->
stopped
=
rtsTrue
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a 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