diff options
| author | Edward Z. Yang <ezyang@cs.stanford.edu> | 2014-05-18 21:32:10 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-05-18 21:32:14 -0500 |
| commit | b75d126e779e8690c675be84e8972dc023e04b9b (patch) | |
| tree | c74d686a827a131dd26e73147efb6de913911104 /rts/Stable.c | |
| parent | 4dac3a4124e5b3bb2ef8f9105f8921dcbb5183f7 (diff) | |
| download | haskell-b75d126e779e8690c675be84e8972dc023e04b9b.tar.gz | |
rts: remove stable-names from hashtable upon free
This fixes #9078.
Signed-off-by: Austin Seipp <austin@well-typed.com>
Diffstat (limited to 'rts/Stable.c')
| -rw-r--r-- | rts/Stable.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/rts/Stable.c b/rts/Stable.c index ec74b0da13..431b7c66c1 100644 --- a/rts/Stable.c +++ b/rts/Stable.c @@ -246,6 +246,7 @@ STATIC_INLINE void freeSnEntry(snEntry *sn) { ASSERT(sn->sn_obj == NULL); + removeHashTable(addrToStableHash, (W_)sn->old, NULL); sn->addr = (P_)stable_name_free; stable_name_free = sn; } |