X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=rts%2FRtsUtils.h;h=11a2826596e2c99d4eb0d690df9b9790b9ac8262;hb=7bb3d1fc79521d591cd9f824893963141a7997b6;hp=96a5f0d82f9b11077f165db43fceee06891d20a3;hpb=0065d5ab628975892cea1ec7303f968c3338cbe1;p=ghc-hetmet.git diff --git a/rts/RtsUtils.h b/rts/RtsUtils.h index 96a5f0d..11a2826 100644 --- a/rts/RtsUtils.h +++ b/rts/RtsUtils.h @@ -13,10 +13,10 @@ * (Checked) dynamic allocation * -------------------------------------------------------------------------- */ -extern void *stgMallocBytes(int n, char *msg) - GNUC3_ATTRIBUTE(__malloc__); +extern void initAllocator(void); +extern void shutdownAllocator(void); -extern void* stgMallocBytesRWX(int len) +extern void *stgMallocBytes(int n, char *msg) GNUC3_ATTRIBUTE(__malloc__); extern void *stgReallocBytes(void *p, int n, char *msg); @@ -40,10 +40,6 @@ extern nat stg_strlen(char *str); extern char *time_str(void); extern char *ullong_format_string(ullong, char *, rtsBool); -#ifdef PAR -extern ullong msTime(void); -#endif - #ifdef DEBUG extern void heapCheckFail( void ); #endif @@ -51,4 +47,8 @@ extern void heapCheckFail( void ); extern void* __hscore_get_saved_termios(int fd); extern void __hscore_set_saved_termios(int fd, void* ts); +void printRtsInfo(void); + +int rts_isProfiled(void); + #endif /* RTSUTILS_H */