Make the running_finalizers flag task-local

[ghc-hetmet.git] / rts / Task.h

diff --git a/rts/Task.h b/rts/Task.h
index c2b58f2..2e0a4b8 100644 (file)
--- 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