diff options
| author | Ian Lynagh <ian@well-typed.com> | 2013-06-15 16:41:21 +0100 |
|---|---|---|
| committer | Ian Lynagh <ian@well-typed.com> | 2013-06-15 16:41:21 +0100 |
| commit | 4ca864277ce94b65e8be41e2ba929a7157f37f1b (patch) | |
| tree | ced00fe7aa6b404fa0418358e581d4ee85b2c411 /rts/RetainerProfile.c | |
| parent | fe652a8b56c864167ecf1fac899bb3d99363dfcf (diff) | |
| download | haskell-4ca864277ce94b65e8be41e2ba929a7157f37f1b.tar.gz | |
Add braces for clarity
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. |