diff options
author | Simon Marlow <marlowsd@gmail.com> | 2010-03-29 11:00:36 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2010-03-29 11:00:36 +0000 |
commit | e74936e39e845923c2e2a239524037d11dee2abd (patch) | |
tree | 31f3c661eb02536851a2528df3a115a56aee8ce0 /includes | |
parent | f74a195e8eaad2670cf10be30484fda842e3c01e (diff) | |
download | haskell-e74936e39e845923c2e2a239524037d11dee2abd.tar.gz |
Add a 'setKeepCAFs' external function (#3900)
Diffstat (limited to 'includes')
-rw-r--r-- | includes/rts/storage/GC.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/includes/rts/storage/GC.h b/includes/rts/storage/GC.h index 9749c0272e..15c22ab01e 100644 --- a/includes/rts/storage/GC.h +++ b/includes/rts/storage/GC.h @@ -171,6 +171,9 @@ void newCAF (StgRegTable *reg, StgClosure *); void newDynCAF (StgRegTable *reg, StgClosure *); void revertCAFs (void); +// Request that all CAFs are retained indefinitely. +void setKeepCAFs (void); + /* ----------------------------------------------------------------------------- This is the write barrier for MUT_VARs, a.k.a. IORefs. A MUT_VAR_CLEAN object is not on the mutable list; a MUT_VAR_DIRTY |