diff options
| author | Simon Marlow <marlowsd@gmail.com> | 2008-12-10 15:04:25 +0000 |
|---|---|---|
| committer | Simon Marlow <marlowsd@gmail.com> | 2008-12-10 15:04:25 +0000 |
| commit | 6c095bfa3c8c81b52ad92853acd326453d320d7b (patch) | |
| tree | 3f7658288a4f7f0744bb4959ca5a6113cf02babd /rts/Linker.c | |
| parent | d4a17c3a253d02c2ebf2315e71a29cb740278977 (diff) | |
| download | haskell-6c095bfa3c8c81b52ad92853acd326453d320d7b.tar.gz | |
FIX #1364: added support for C finalizers that run as soon as the value is not longer reachable.
Patch originally by Ivan Tomac <tomac@pacific.net.au>, amended by
Simon Marlow:
- mkWeakFinalizer# commoned up with mkWeakFinalizerEnv#
- GC parameters to ALLOC_PRIM fixed
Diffstat (limited to 'rts/Linker.c')
| -rw-r--r-- | rts/Linker.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Linker.c b/rts/Linker.c index ac06cda1a9..ef12e3e9aa 100644 --- a/rts/Linker.c +++ b/rts/Linker.c @@ -224,6 +224,7 @@ typedef struct _RtsSymbolVal { #if !defined(PAR) #define Maybe_Stable_Names SymI_HasProto(mkWeakzh_fast) \ + SymI_HasProto(mkWeakForeignEnvzh_fast) \ SymI_HasProto(makeStableNamezh_fast) \ SymI_HasProto(finalizzeWeakzh_fast) #else |