diff options
| author | Takano Akio <aljee@hyper.cx> | 2013-04-18 18:30:23 +0900 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-06-15 16:23:09 +0100 |
| commit | d61c623ed6b2d352474a7497a65015dbf6a72e12 (patch) | |
| tree | 13132eb4473fb8594bd72e168f918ea79a0c9da6 /rts/Weak.h | |
| parent | 5d9e686c30a00be08a04d9fd1c860994153a1f7a (diff) | |
| download | haskell-d61c623ed6b2d352474a7497a65015dbf6a72e12.tar.gz | |
Allow multiple C finalizers to be attached to a Weak#
The commit replaces mkWeakForeignEnv# with addCFinalizerToWeak#.
This new primop mutates an existing Weak# object and adds a new
C finalizer to it.
This change removes an invariant in MarkWeak.c, namely that the relative
order of Weak# objects in the list needs to be preserved across GC. This
makes it easier to split the list into per-generation structures.
The patch also removes a race condition between two threads calling
finalizeWeak# on the same WEAK object at that same time.
Diffstat (limited to 'rts/Weak.h')
| -rw-r--r-- | rts/Weak.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/rts/Weak.h b/rts/Weak.h index 9b230f94de..7892277b11 100644 --- a/rts/Weak.h +++ b/rts/Weak.h @@ -16,7 +16,7 @@ extern rtsBool running_finalizers; extern StgWeak * weak_ptr_list; -void runCFinalizer(void *fn, void *ptr, void *env, StgWord flag); +void runCFinalizers(StgCFinalizerList *list); void runAllCFinalizers(StgWeak *w); void scheduleFinalizers(Capability *cap, StgWeak *w); void markWeakList(void); |