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
*
......@@ -336,7 +336,6 @@ resetNurseries( void )
#else
for (bd = g0s0->blocks; bd; bd = bd->link) {
#ifdef PROFILING
// @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,
// which is stored in the nursery.
......@@ -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
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