[commit: ghc] master: Revert "RetainerProfile: Add missing UNTAG_STATIC_LIST_PTR" (09925c3)

git at git.haskell.org git at git.haskell.org
Mon Jul 27 14:55:05 UTC 2015


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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/09925c364c3fb7d3e8610f8c3ae26238d2941fc0/ghc

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

commit 09925c364c3fb7d3e8610f8c3ae26238d2941fc0
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Mon Jul 27 15:51:08 2015 +0100

    Revert "RetainerProfile: Add missing UNTAG_STATIC_LIST_PTR"
    
    This reverts commit 09d05050346c1be7bac20ba3f40861e05217368b.


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

09925c364c3fb7d3e8610f8c3ae26238d2941fc0
 rts/RetainerProfile.c | 1 -
 1 file changed, 1 deletion(-)

diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index ba58c19..8121def 100644
--- a/rts/RetainerProfile.c
+++ b/rts/RetainerProfile.c
@@ -1882,7 +1882,6 @@ 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