X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=includes%2FStg.h;h=7ac6b1a86427e25853412c3dda8749c1569a66aa;hb=2b16fa4791b08b02df8461f3b79d0e44d72d0960;hp=392fd2a0abb30dfa4c5e1bcd1df22e90ab5f2f82;hpb=930a3e53e87cae37d266925f2908c9d180045311;p=ghc-hetmet.git diff --git a/includes/Stg.h b/includes/Stg.h index 392fd2a..7ac6b1a 100644 --- a/includes/Stg.h +++ b/includes/Stg.h @@ -35,9 +35,6 @@ // Turn on C99 for .hc code. This gives us the INFINITY and NAN // constants from math.h, which we occasionally need to use in .hc (#1861) # define _ISOC99_SOURCE - -// Turning on _ISOC99_SOURCE means S_ISSOCK gets defined on Linux -# define _BSD_SOURCE #endif #if IN_STG_CODE == 0 @@ -81,7 +78,8 @@ * 'Portable' inlining: * INLINE_HEADER is for inline functions in header files (macros) * STATIC_INLINE is for inline functions in source files - * EXTERN_INLINE is for functions that we want to inline sometimes + * EXTERN_INLINE is for functions that we want to inline sometimes + * (we also compile a static version of the function; see Inlines.c) */ #if defined(__GNUC__) || defined( __INTEL_COMPILER) @@ -89,11 +87,28 @@ # define INLINE_ME inline # define STATIC_INLINE INLINE_HEADER -# if defined(KEEP_INLINES) -# define EXTERN_INLINE inline -# else -# define EXTERN_INLINE extern inline -# endif +// The special "extern inline" behaviour is now only supported by gcc +// when _GNUC_GNU_INLINE__ is defined, and you have to use +// __attribute__((gnu_inline)). So when we don't have this, we use +// ordinary static inline. +// +// Apple's gcc defines __GNUC_GNU_INLINE__ without providing +// gnu_inline, so we exclude MacOS X and fall through to the safe +// version. +// +#if defined(__GNUC_GNU_INLINE__) && !defined(__APPLE__) +# if defined(KEEP_INLINES) +# define EXTERN_INLINE inline +# else +# define EXTERN_INLINE extern inline __attribute__((gnu_inline)) +# endif +#else +# if defined(KEEP_INLINES) +# define EXTERN_INLINE +# else +# define EXTERN_INLINE INLINE_HEADER +# endif +#endif #elif defined(_MSC_VER)