X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2Fsm%2FEvac.c;h=d533e5d2bf0e73df48cfe79a8a9572091c4cddee;hb=b09ab92b65983635c68c8944631b1d53e9b71e42;hp=d437e3f7868a0353715217cb3e99b1d463bc510e;hpb=6015a94f9108a502150565577b66c23650796639;p=ghc-hetmet.git

diff --git a/rts/sm/Evac.c b/rts/sm/Evac.c
index d437e3f..d533e5d 100644
--- a/rts/sm/Evac.c
+++ b/rts/sm/Evac.c
@@ -905,7 +905,7 @@ selector_loop:
 #ifdef PROFILING
 	      // For the purposes of LDV profiling, we have destroyed
 	      // the original selector thunk.
-	      SET_INFO(p, info_ptr);
+	      SET_INFO(selectee, info_ptr);
 	      LDV_RECORD_DEAD_FILL_SLOP_DYNAMIC(selectee);
 #endif
 	      ((StgInd *)selectee)->indirectee = val;