From: simonmar Date: Mon, 4 Apr 2005 10:39:23 +0000 (+0000) Subject: [project @ 2005-04-04 10:39:23 by simonmar] X-Git-Tag: Initial_conversion_from_CVS_complete~827 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=de90a39db460e0b6f1d7e0cfeca98f0d24dd98ea;p=ghc-hetmet.git [project @ 2005-04-04 10:39:23 by simonmar] Give prototypes for getAllocations and revertCAFs. --- diff --git a/ghc/includes/RtsExternal.h b/ghc/includes/RtsExternal.h index c8b1f1c..a597918 100644 --- a/ghc/includes/RtsExternal.h +++ b/ghc/includes/RtsExternal.h @@ -78,5 +78,7 @@ typedef void (*evac_fn)(StgClosure **); extern void performGC(void); extern void performMajorGC(void); extern void performGCWithRoots(void (*get_roots)(evac_fn)); +extern HsInt64 getAllocations( void ); +extern void revertCAFs( void ); #endif /* RTSEXTERNAL_H */ diff --git a/ghc/includes/Storage.h b/ghc/includes/Storage.h index 2706756..7ed9b91 100644 --- a/ghc/includes/Storage.h +++ b/ghc/includes/Storage.h @@ -232,8 +232,6 @@ recordMutable(StgClosure *p) The CAF table - used to let us revert CAFs in GHCi -------------------------------------------------------------------------- */ -void revertCAFs( void ); - /* set to disable CAF garbage collection in GHCi. */ /* (needed when dynamic libraries are used). */ extern rtsBool keepCAFs;