From: simonmar <unknown>
Date: Wed, 23 Apr 2003 08:54:45 +0000 (+0000)
Subject: [project @ 2003-04-23 08:54:45 by simonmar]
X-Git-Tag: Approx_11550_changesets_converted~946
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=8d594ee9ce70d9024a3fba7c789b75b691e0895d;p=ghc-hetmet.git

[project @ 2003-04-23 08:54:45 by simonmar]
Oops, forgot to update this file after the RET_DYN changes.
---

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--) {