X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fincludes%2FRts.h;h=35ba5ced76aa20cb57394bd875f8321dcbb433a0;hb=8504635323bc4c2d7ade98771a4e281c2d56761c;hp=c7531ff8c3c5e4c3cdd3f954eb97af5f31e762db;hpb=1d10874717ff05d2babc9cbf079d5895fcc0a922;p=ghc-hetmet.git diff --git a/ghc/includes/Rts.h b/ghc/includes/Rts.h index c7531ff..35ba5ce 100644 --- a/ghc/includes/Rts.h +++ b/ghc/includes/Rts.h @@ -1,7 +1,6 @@ /* ----------------------------------------------------------------------------- - * $Id: Rts.h,v 1.27 2004/09/06 11:10:34 simonmar Exp $ * - * (c) The GHC Team, 1998-1999 + * (c) The GHC Team, 1998-2004 * * Top-level include file for the RTS itself * @@ -51,19 +50,7 @@ extern "C" { #define GNUC3_ATTRIBUTE(at) #endif -/* - * Empty structures isn't supported by all, so to define - * empty structures, please protect the defn with an - * #if SUPPORTS_EMPTY_STRUCTS. Similarly for use, - * employ the macro MAYBE_EMPTY_STRUCT(): - * - * MAYBE_EMPTY_STRUCT(structFoo, fieldName); - */ -#if SUPPORTS_EMPTY_STRUCTS -# define MAYBE_EMPTY_STRUCT(a,b) a b; -#else -# define MAYBE_EMPTY_STRUCT(a,b) /* empty */ -#endif +#define STG_UNUSED GNUC3_ATTRIBUTE(__unused__) /* * We often want to know the size of something in units of an @@ -240,30 +227,13 @@ extern void* GetFiberData ( void ); #endif /* ----------------------------------------------------------------------------- - Attributes + Useful macros and inline functions -------------------------------------------------------------------------- */ -#ifdef __GNUC__ /* Avoid spurious warnings */ -#if (__GNUC__ == 2 && __GNUC_MINOR__ >= 7) || __GNUC__ >= 3 -#define STG_NORETURN __attribute__ ((noreturn)) -#define STG_UNUSED __attribute__ ((unused)) -#else -#define STG_NORETURN -#define STG_UNUSED -#endif -#else -#define STG_NORETURN -#define STG_UNUSED -#endif - #if defined(__GNUC__) #define SUPPORTS_TYPEOF #endif -/* ----------------------------------------------------------------------------- - Useful macros and inline functions - -------------------------------------------------------------------------- */ - #if defined(SUPPORTS_TYPEOF) #define stg_min(a,b) ({typeof(a) _a = (a), _b = (b); _a <= _b ? _a : _b; }) #define stg_max(a,b) ({typeof(a) _a = (a), _b = (b); _a <= _b ? _b : _a; })