projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
LLVM: Use mangler to fix up stack alignment issues on OSX
[ghc-hetmet.git]
/
rts
/
Task.c
diff --git
a/rts/Task.c
b/rts/Task.c
index
98f083c
..
a9461c9
100644
(file)
--- a/
rts/Task.c
+++ b/
rts/Task.c
@@
-154,8
+154,6
@@
newTask (rtsBool worker)
task->worker = worker;
task->stopped = rtsFalse;
task->running_finalizers = rtsFalse;
task->worker = worker;
task->stopped = rtsFalse;
task->running_finalizers = rtsFalse;
- task->stat = NoStatus;
- task->ret = NULL;
task->n_spare_incalls = 0;
task->spare_incalls = NULL;
task->incall = NULL;
task->n_spare_incalls = 0;
task->spare_incalls = NULL;
task->incall = NULL;
@@
-211,6
+209,8
@@
newInCall (Task *task)
incall->task = task;
incall->suspended_tso = NULL;
incall->suspended_cap = NULL;
incall->task = task;
incall->suspended_tso = NULL;
incall->suspended_cap = NULL;
+ incall->stat = NoStatus;
+ incall->ret = NULL;
incall->next = NULL;
incall->prev = NULL;
incall->prev_stack = task->incall;
incall->next = NULL;
incall->prev = NULL;
incall->prev_stack = task->incall;