X-Git-Url: http://git.megacz.com/?p=ghc-hetmet.git;a=blobdiff_plain;f=rts%2FRetainerProfile.c;fp=rts%2FRetainerProfile.c;h=b7bc909f63017f5a24ab5d3a4b8bca407ace2ca0;hp=4fca19cf2fb87872d99e5705fdb450274d785e87;hb=7408b39235bccdcde48df2a73337ff976fbc09b7;hpb=12cfec943127f0c81e1ffa1ca5ce46e888e3027c

diff --git a/rts/RetainerProfile.c b/rts/RetainerProfile.c
index 4fca19c..b7bc909 100644
--- a/rts/RetainerProfile.c
+++ b/rts/RetainerProfile.c
@@ -509,7 +509,7 @@ push( StgClosure *c, retainer c_child_r, StgClosure **first_child )
 
 	// layout.payload.ptrs, no SRT
     case CONSTR:
-    case STABLE_NAME:
+    case PRIM:
     case BCO:
     case CONSTR_STATIC:
 	init_ptrs(&se.info, get_itbl(c)->layout.payload.ptrs,
@@ -883,7 +883,7 @@ pop( StgClosure **c, StgClosure **cp, retainer *r )
 	}
 
 	case CONSTR:
-	case STABLE_NAME:
+	case PRIM:
 	case BCO:
 	case CONSTR_STATIC:
 	    // StgMutArrPtr.ptrs, no SRT
@@ -1108,7 +1108,7 @@ isRetainer( StgClosure *c )
     case CONSTR_STATIC:
     case FUN_STATIC:
 	// misc
-    case STABLE_NAME:
+    case PRIM:
     case BCO:
     case ARR_WORDS:
 	// STM