diff options
Diffstat (limited to 'rts/RetainerProfile.c')
| -rw-r--r-- | rts/RetainerProfile.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c index 10a947dda8..77dc77c65a 100644 --- a/rts/RetainerProfile.c +++ b/rts/RetainerProfile.c @@ -1768,9 +1768,10 @@ computeRetainerSet( void ) // The following code assumes that WEAK objects are considered to be roots // for retainer profilng. for (g = 0; g < RtsFlags.GcFlags.generations; g++) { - for (weak = generations[g].weak_ptr_list; weak != NULL; weak = weak->link) + for (weak = generations[g].weak_ptr_list; weak != NULL; weak = weak->link) { // retainRoot((StgClosure *)weak); retainRoot(NULL, (StgClosure **)&weak); + } } // Consider roots from the stable ptr table. |