[commit: ghc] master: RetainerProfile: Add missing UNTAG_STATIC_LIST_PTR (09d0505)

git at git.haskell.org git at git.haskell.org
Fri Jul 24 15:43:34 UTC 2015


Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/09d05050346c1be7bac20ba3f40861e05217368b/ghc

>---------------------------------------------------------------

commit 09d05050346c1be7bac20ba3f40861e05217368b
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Fri Jul 24 11:41:59 2015 -0400

    RetainerProfile: Add missing UNTAG_STATIC_LIST_PTR


>---------------------------------------------------------------

09d05050346c1be7bac20ba3f40861e05217368b
 rts/RetainerProfile.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 8121def..ba58c19 100644
--- a/rts/RetainerProfile.c
+++ b/rts/RetainerProfile.c
@@ -1882,6 +1882,7 @@ resetStaticObjectForRetainerProfiling( StgClosure *static_objects )
 #endif
     p = static_objects;
     while (p != END_OF_STATIC_OBJECT_LIST) {
+        p = UNTAG_STATIC_LIST_PTR(p);
 #ifdef DEBUG_RETAINER
         count++;
 #endif



More information about the ghc-commits mailing list