From 117bf3f003b3bed4988a029ce74ff07565c953ed Mon Sep 17 00:00:00 2001
From: simonmar <unknown>
Date: Wed, 28 Nov 2001 14:30:32 +0000
Subject: [PATCH] [project @ 2001-11-28 14:30:32 by simonmar] Add a non-inline
 version of Bdescr() for use in gdb.

---
 ghc/rts/Storage.c |   12 ++++++++++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/ghc/rts/Storage.c b/ghc/rts/Storage.c
index 51af3c8..a6c6bd0 100644
--- a/ghc/rts/Storage.c
+++ b/ghc/rts/Storage.c
@@ -1,5 +1,5 @@
 /* -----------------------------------------------------------------------------
- * $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
-- 
1.7.10.4