Capability *cap;
Task *task;
- if (running_finalizers) {
+ task = newBoundTask();
+
+ if (task->running_finalizers) {
errorBelch("error: a C finalizer called back into Haskell.\n"
" This was previously allowed, but is disallowed in GHC 6.10.2 and later.\n"
" To create finalizers that may call back into Haskell, use\n"
stg_exit(EXIT_FAILURE);
}
- task = newBoundTask();
-
cap = NULL;
waitForReturnCapability(&cap, task);
return (Capability *)cap;
task->cap = NULL;
task->worker = worker;
task->stopped = rtsFalse;
+ task->running_finalizers = rtsFalse;
task->stat = NoStatus;
task->ret = NULL;
task->n_spare_incalls = 0;
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
StgWeak *weak_ptr_list;
-// So that we can detect when a finalizer illegally calls back into Haskell
-rtsBool running_finalizers = rtsFalse;
-
void
runCFinalizer(void *fn, void *ptr, void *env, StgWord flag)
{
runAllCFinalizers(StgWeak *list)
{
StgWeak *w;
+ Task *task;
- running_finalizers = rtsTrue;
+ task = myTask();
+ if (task != NULL) {
+ task->running_finalizers = rtsTrue;
+ }
for (w = list; w; w = w->link) {
StgArrWords *farr;
farr->payload[3]);
}
- running_finalizers = rtsFalse;
+ if (task != NULL) {
+ task->running_finalizers = rtsFalse;
+ }
}
/*
StgMutArrPtrs *arr;
StgWord size;
nat n, i;
+ Task *task;
- running_finalizers = rtsTrue;
+ task = myTask();
+ if (task != NULL) {
+ task->running_finalizers = rtsTrue;
+ }
// count number of finalizers, and kill all the weak pointers first...
n = 0;
SET_HDR(w, &stg_DEAD_WEAK_info, w->header.prof.ccs);
}
- running_finalizers = rtsFalse;
+ if (task != NULL) {
+ task->running_finalizers = rtsFalse;
+ }
// No finalizers to run?
if (n == 0) return;