X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=ghc%2Frts%2FProfHeap.h;h=82f0923c850ab787d7ebe7990bf2e0402dbb7372;hb=6ee7389261b6559c3507b90b9476aa8daf45400c;hp=852a82878d5b622e1a562ff68d1be7041b054259;hpb=db61851c5472bf565cd1da900b33d6e033fd743d;p=ghc-hetmet.git diff --git a/ghc/rts/ProfHeap.h b/ghc/rts/ProfHeap.h index 852a828..82f0923 100644 --- a/ghc/rts/ProfHeap.h +++ b/ghc/rts/ProfHeap.h @@ -1,5 +1,5 @@ /* ----------------------------------------------------------------------------- - * $Id: ProfHeap.h,v 1.2 2001/11/22 14:25:12 simonmar Exp $ + * $Id: ProfHeap.h,v 1.4 2001/12/12 14:31:43 simonmar Exp $ * * (c) The GHC Team, 1998-1999 * @@ -7,8 +7,14 @@ * * ---------------------------------------------------------------------------*/ +#ifndef PROFHEAP_H +#define PROFHEAP_H extern void heapCensus( void ); extern nat initHeapProfiling( void ); extern void endHeapProfiling( void ); extern rtsBool closureSatisfiesConstraints( StgClosure* p ); +extern void LDV_recordDead( StgClosure *c, nat size ); +extern rtsBool strMatchesSelector( char* str, char* sel ); + +#endif