Commit 8d594ee9 authored by simonmar's avatar simonmar
Browse files

[project @ 2003-04-23 08:54:45 by simonmar]

Oops, forgot to update this file after the RET_DYN changes.
parent c21fbf92
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $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 * (c) The GHC Team, 2001
* Author: Sungwoo Park * Author: Sungwoo Park
...@@ -1265,11 +1265,11 @@ retainStack( StgClosure *c, retainer c_child_r, ...@@ -1265,11 +1265,11 @@ retainStack( StgClosure *c, retainer c_child_r,
// traverse the bitmap first // traverse the bitmap first
bitmap = GET_LIVENESS(dyn); bitmap = GET_LIVENESS(dyn);
p = (P_)&((StgRetDyn *)p)->payload[0]; 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); p = retain_small_bitmap(p, size, bitmap, c, c_child_r);
// skip over the non-ptr words // skip over the non-ptr words
p += GET_NONPTRS(dyn); p += GET_NONPTRS(dyn) + RET_DYN_NONPTR_REGS_SIZE;
// follow the ptr words // follow the ptr words
for (size = GET_PTRS(dyn); size > 0; size--) { for (size = GET_PTRS(dyn); size > 0; size--) {
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment