X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FStorage.h;h=597ce2efda134445ebd5ba790b02763298a966dd;hb=695e027249339d96807479bf4f8053e92effd624;hp=0ef5785a85f0d185e69575d967877445bccd9122;hpb=bf8219815876579f80b4e30188b982bf3e673199;p=ghc-hetmet.git diff --git a/ghc/includes/Storage.h b/ghc/includes/Storage.h index 0ef5785..597ce2e 100644 --- a/ghc/includes/Storage.h +++ b/ghc/includes/Storage.h @@ -402,6 +402,7 @@ extern lnat calcNeeded ( void ); extern void memInventory(void); extern void checkSanity(void); extern nat countBlocks(bdescr *); +extern void checkNurserySanity( step *stp ); #endif #if defined(DEBUG) @@ -420,7 +421,6 @@ extern void newDynCAF(StgClosure *); extern void move_TSO(StgTSO *src, StgTSO *dest); extern StgTSO *relocate_stack(StgTSO *dest, ptrdiff_t diff); -extern StgClosure * RTS_VAR(static_objects); extern StgClosure * RTS_VAR(scavenged_static_objects); extern StgWeak * RTS_VAR(old_weak_ptr_list); extern StgWeak * RTS_VAR(weak_ptr_list);