From 8d594ee9ce70d9024a3fba7c789b75b691e0895d Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 23 Apr 2003 08:54:45 +0000
Subject: [PATCH] [project @ 2003-04-23 08:54:45 by simonmar] Oops, forgot to
 update this file after the RET_DYN changes.

---
 ghc/rts/RetainerProfile.c |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/ghc/rts/RetainerProfile.c b/ghc/rts/RetainerProfile.c
index 9ab12f1..8a314c5 100644
--- a/ghc/rts/RetainerProfile.c
+++ b/ghc/rts/RetainerProfile.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $Id: RetainerProfile.c,v 1.8 2003/03/21 16:18:37 sof Exp $
+ * $Id: RetainerProfile.c,v 1.9 2003/04/23 08:54:45 simonmar Exp $
  *
  * (c) The GHC Team, 2001
  * Author: Sungwoo Park
@@ -1265,11 +1265,11 @@ retainStack( StgClosure *c, retainer c_child_r,
 	    // traverse the bitmap first
 	    bitmap = GET_LIVENESS(dyn);
 	    p      = (P_)&((StgRetDyn *)p)->payload[0];
-	    size   = RET_DYN_SIZE;
+	    size   = RET_DYN_BITMAP_SIZE;
 	    p = retain_small_bitmap(p, size, bitmap, c, c_child_r);
 	    
 	    // skip over the non-ptr words
-	    p += GET_NONPTRS(dyn);
+	    p += GET_NONPTRS(dyn) + RET_DYN_NONPTR_REGS_SIZE;
 	    
 	    // follow the ptr words
 	    for (size = GET_PTRS(dyn); size > 0; size--) {
-- 
1.7.10.4