X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTask.c;h=98f083c11257ff51f4f6c581b2a45ff1d5611154;hb=661c97c65e5fa47177502e592bb763f752b487ac;hp=9707251ca309bdccef7fc7b6298173398666fb9a;hpb=1991d6e39c1902c8877397622132bb7d6c7c5ebc;p=ghc-hetmet.git

diff --git a/rts/Task.c b/rts/Task.c
index 9707251..98f083c 100644
--- a/rts/Task.c
+++ b/rts/Task.c
@@ -153,6 +153,7 @@ newTask (rtsBool worker)
     task->cap           = NULL;
     task->worker        = worker;
     task->stopped       = rtsFalse;
+    task->running_finalizers = rtsFalse;
     task->stat          = NoStatus;
     task->ret           = NULL;
     task->n_spare_incalls = 0;