X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FTask.h;h=2e0a4b83fae57737ddbc7b9d7cae14833ffa7021;hb=497f8aa6c2c8770daf3d39f57ee5e04dcdcc3778;hp=c2b58f2c459e105907f2c4a109f3ec2c4676778b;hpb=7effbbbbdfe7eb05c6402fa9337e358e7e9fadde;p=ghc-hetmet.git

diff --git a/rts/Task.h b/rts/Task.h
index c2b58f2..2e0a4b8 100644
--- a/rts/Task.h
+++ b/rts/Task.h
@@ -134,6 +134,9 @@ typedef struct Task_ {
     rtsBool    worker;          // == rtsTrue if this is a worker Task
     rtsBool    stopped;         // this task has stopped or exited Haskell
 
+    // So that we can detect when a finalizer illegally calls back into Haskell
+    rtsBool running_finalizers;
+
     SchedulerStatus  stat;      // return status
     StgClosure **    ret;       // return value