X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;ds=sidebyside;f=includes%2Fstg%2FMiscClosures.h;h=e68282ebc064b2feebdd6df708891f363c9bd604;hb=a0f97ee917fb2fbdb3ebbe8534429aea409d923b;hp=34bd95a550a54fbaeae1f243f596a282394b6814;hpb=43e61859d7d769f2488c5ab3abda23d95e609c01;p=ghc-hetmet.git diff --git a/includes/stg/MiscClosures.h b/includes/stg/MiscClosures.h index 34bd95a..e68282e 100644 --- a/includes/stg/MiscClosures.h +++ b/includes/stg/MiscClosures.h @@ -1,6 +1,6 @@ /* ---------------------------------------------------------------------------- * - * (c) The GHC Team, 1998-2004 + * (c) The GHC Team, 1998-2009 * * Declarations for various symbols exported by the RTS. * @@ -10,6 +10,11 @@ * * See wiki:Commentary/Compiler/Backends/PprC#Prototypes * + * Do not #include this file directly: #include "Rts.h" instead. + * + * To understand the structure of the RTS headers, see the wiki: + * http://hackage.haskell.org/trac/ghc/wiki/Commentary/SourceTree/Includes + * * --------------------------------------------------------------------------*/ #ifndef STGMISCCLOSURES_H @@ -588,6 +593,7 @@ RTS_FUN(stg_getSparkzh); RTS_FUN(stg_noDuplicatezh); RTS_FUN(stg_traceCcszh); +RTS_FUN(stg_traceEventzh); /* Other misc stuff */ // See wiki:Commentary/Compiler/Backends/PprC#Prototypes @@ -612,7 +618,7 @@ extern StgWord stg_ap_stack_entries[]; extern StgWord stg_stack_save_entries[]; // Storage.c -extern unsigned int RTS_VAR(alloc_blocks); +extern unsigned int RTS_VAR(g0); extern unsigned int RTS_VAR(alloc_blocks_lim); extern StgWord RTS_VAR(weak_ptr_list); extern StgWord RTS_VAR(atomic_modify_mutvar_mutex);