Commit 117bf3f0 authored by simonmar's avatar simonmar
Browse files

[project @ 2001-11-28 14:30:32 by simonmar]

Add a non-inline version of Bdescr() for use in gdb.
parent 652b549f
/* ----------------------------------------------------------------------------- /* -----------------------------------------------------------------------------
* $Id: Storage.c,v 1.55 2001/11/26 16:54:22 simonmar Exp $ * $Id: Storage.c,v 1.56 2001/11/28 14:30:32 simonmar Exp $
* *
* (c) The GHC Team, 1998-1999 * (c) The GHC Team, 1998-1999
* *
...@@ -336,7 +336,6 @@ resetNurseries( void ) ...@@ -336,7 +336,6 @@ resetNurseries( void )
#else #else
for (bd = g0s0->blocks; bd; bd = bd->link) { for (bd = g0s0->blocks; bd; bd = bd->link) {
#ifdef PROFILING #ifdef PROFILING
// @LDV profiling
// Reset every word in the nursery to zero when doing LDV profiling. // Reset every word in the nursery to zero when doing LDV profiling.
// This relieves the mutator of the burden of zeroing every new closure, // This relieves the mutator of the burden of zeroing every new closure,
// which is stored in the nursery. // which is stored in the nursery.
...@@ -856,4 +855,13 @@ checkSanity( void ) ...@@ -856,4 +855,13 @@ checkSanity( void )
} }
} }
// handy function for use in gdb, because Bdescr() is inlined.
extern bdescr *_bdescr( StgPtr p );
bdescr *
_bdescr( StgPtr p )
{
return Bdescr(p);
}
#endif #endif
Markdown is supported
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