projects
/
ghc-hetmet.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Fix +RTS -G1
[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
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
SchedulerStatus stat; // return status
StgClosure ** ret; // return value