From: simonmar <unknown>
Date: Wed, 28 Nov 2001 14:30:32 +0000 (+0000)
Subject: [project @ 2001-11-28 14:30:32 by simonmar]
X-Git-Tag: Approximately_9120_patches~498
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=117bf3f003b3bed4988a029ce74ff07565c953ed;hp=652b549f313ca70242179a2628b2800f692f5b7a;p=ghc-hetmet.git

[project @ 2001-11-28 14:30:32 by simonmar]
Add a non-inline version of Bdescr() for use in gdb.
---

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