diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2011-10-17 13:16:02 +0100 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2011-10-17 14:51:34 +0100 |
| commit | 96c80d34163fd422cbc18f4532b7556212a554b8 (patch) | |
| tree | 2f16215825f2f32388c2dde5c07d7620c60143f0 /includes | |
| parent | e91ed183fdde4aa4f51b96987c7fb6fa2bfd15f5 (diff) | |
| download | haskell-96c80d34163fd422cbc18f4532b7556212a554b8.tar.gz | |
make CAFs atomic, to fix #5558
See Note [atomic CAFs] in rts/sm/Storage.c
Diffstat (limited to 'includes')
| -rw-r--r-- | includes/rts/storage/GC.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/includes/rts/storage/GC.h b/includes/rts/storage/GC.h index e745b0460b..fef8e00598 100644 --- a/includes/rts/storage/GC.h +++ b/includes/rts/storage/GC.h @@ -170,8 +170,8 @@ void performMajorGC(void); The CAF table - used to let us revert CAFs in GHCi -------------------------------------------------------------------------- */ -void newCAF (StgRegTable *reg, StgClosure *); -void newDynCAF (StgRegTable *reg, StgClosure *); +StgWord newCAF (StgRegTable *reg, StgClosure *caf, StgClosure *bh); +StgWord newDynCAF (StgRegTable *reg, StgClosure *caf, StgClosure *bh); void revertCAFs (void); // Request that all CAFs are retained indefinitely. |