X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Frts%2FRtsUtils.h;h=efa178a4d34ef0a16e119f394b6779516b19b363;hb=9b588c57cf0d2cb4f360d5155a9b456605c0e8be;hp=d2a75711c0dcebdb7e9b5191c810cbe9d01a6e9f;hpb=1da969c52be2e56893625957162cf56dd1168ec9;p=ghc-hetmet.git diff --git a/ghc/rts/RtsUtils.h b/ghc/rts/RtsUtils.h index d2a7571..efa178a 100644 --- a/ghc/rts/RtsUtils.h +++ b/ghc/rts/RtsUtils.h @@ -1,19 +1,21 @@ /* ----------------------------------------------------------------------------- - * $Id: RtsUtils.h,v 1.17 2003/06/09 13:17:40 matthewc Exp $ * - * (c) The GHC Team, 1998-1999 + * (c) The GHC Team, 1998-2004 * * General utility functions used in the RTS. * * ---------------------------------------------------------------------------*/ +#ifndef RTSUTILS_H +#define RTSUTILS_H + /* (Checked) dynamic allocation: */ -extern void *stgMallocBytes(int n, char *msg); +extern void *stgMallocBytes(int n, char *msg) GNUC3_ATTRIBUTE(__malloc__); extern void *stgReallocBytes(void *p, int n, char *msg); -extern void *stgCallocBytes(int n, int m, char *msg); +extern void *stgCallocBytes(int n, int m, char *msg) GNUC3_ATTRIBUTE(__malloc__); extern void stgFree(void* p); -extern void barf(char *s, ...) __attribute__((__noreturn__)) ; +extern void barf(char *s, ...) GNU_ATTRIBUTE(__noreturn__); extern void belch(char *s, ...); extern void prog_belch(char *s, ...); @@ -26,9 +28,6 @@ extern void resetNonBlockingFd(int fd); extern nat stg_strlen(char *str); -/*Defined in Main.c, but made visible here*/ -extern void stg_exit(int n) __attribute__((noreturn)); - char *time_str(void); char *ullong_format_string(ullong, char *, rtsBool); @@ -39,3 +38,8 @@ ullong msTime(void); #ifdef DEBUG extern void heapCheckFail( void ); #endif + +extern void* __hscore_get_saved_termios(int fd); +extern void __hscore_set_saved_termios(int fd, void* ts); + +#endif // RTSUTILS_H