X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTask.c;h=a9461c952776eb8dcb01643c1da2cc00fb31f392;hb=68c1816d93339e48b4907ed3b80e9551c2150a2d;hp=98f083c11257ff51f4f6c581b2a45ff1d5611154;hpb=497f8aa6c2c8770daf3d39f57ee5e04dcdcc3778;p=ghc-hetmet.git

diff --git a/rts/Task.c b/rts/Task.c
index 98f083c..a9461c9 100644
--- 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->stat          = NoStatus;
-    task->ret           = 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->stat          = NoStatus;
+    incall->ret           = NULL;
     incall->next = NULL;
     incall->prev = NULL;
     incall->prev_stack = task->incall;