summaryrefslogtreecommitdiff
path: root/perl.h
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2005-05-16 20:59:35 +0300
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>2005-05-17 15:15:46 +0000
commitabb2c24232c1dbd60ae39bdbb7e3cf487e3da996 (patch)
treec7620e2c468757b1cc254d2c7137e924d9337c01 /perl.h
parent2e7ed132d3ea6a9040a623e3541f25dd0709096b (diff)
downloadperl-abb2c24232c1dbd60ae39bdbb7e3cf487e3da996.tar.gz
perl 5.9.x (@ 24471): Symbian update
Message-ID: <B356D8F434D20B40A8CEDAEC305A1F2453D793@esebe105.NOE.Nokia.com> completed by: Message-ID: <B356D8F434D20B40A8CEDAEC305A1F2453D7A0@esebe105.NOE.Nokia.com> p4raw-id: //depot/perl@24492
Diffstat (limited to 'perl.h')
-rw-r--r--perl.h18
1 files changed, 18 insertions, 0 deletions
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.