From abb2c24232c1dbd60ae39bdbb7e3cf487e3da996 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 16 May 2005 20:59:35 +0300 Subject: perl 5.9.x (@ 24471): Symbian update Message-ID: completed by: Message-ID: p4raw-id: //depot/perl@24492 --- perl.h | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'perl.h') diff --git a/perl.h b/perl.h index b691daf23e..05d81f9fe1 100644 --- a/perl.h +++ b/perl.h @@ -2558,6 +2558,24 @@ typedef pthread_key_t perl_key; # endif #endif +#if __GNUC__ >= 3 +# define __attribute__malloc__ __attribute__((malloc)) +# define __attribute__nonnull__(a) __attribute__((nonnull(a))) +# define __attribute__noreturn__ __attribute__((noreturn)) +# define __attribute__pure__ __attribute__((pure)) +# define __attribute__warn_unused_result__ __attribute__((warn_unused_result)) +#else +# define __attribute__malloc__ +# define __attribute__nonnull__(a) +# define __attribute__noreturn__ +# define __attribute__pure__ +# define __attribute__warn_unused_result__ +#endif + +#if defined(HASATTRIBUTE) && __GNUC__ >= 3 +# define HASATTRIBUTE_NORETURN +#endif + /* Some unistd.h's give a prototype for pause() even though HAS_PAUSE ends up undefined. This causes the #define below to be rejected by the compiler. Sigh. -- cgit v1.2.1