This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
The gcc attribute "deprecated" seems to have been available since gcc 3.1
[perl5.git]
/
perl.h
diff --git
a/perl.h
b/perl.h
index
e9c3611
..
d913929
100644
(file)
--- a/
perl.h
+++ b/
perl.h
@@
-2732,6
+2732,9
@@
typedef struct clone_params CLONE_PARAMS;
#ifndef PERL_MICRO
#if defined __GNUC__ && !defined(__INTEL_COMPILER)
#ifndef PERL_MICRO
#if defined __GNUC__ && !defined(__INTEL_COMPILER)
+# if __GNUC__ == 3 && __GNUC_MINOR__ >= 1 || __GNUC__ > 3 /* 3.1 -> */
+# define HASATTRIBUTE_DEPRECATED
+# endif
# if __GNUC__ >= 3 /* 3.0 -> */ /* XXX Verify this version */
# define HASATTRIBUTE_FORMAT
# if defined __MINGW32__
# if __GNUC__ >= 3 /* 3.0 -> */ /* XXX Verify this version */
# define HASATTRIBUTE_FORMAT
# if defined __MINGW32__
@@
-3150,6
+3153,9
@@
typedef pthread_key_t perl_key;
# endif
#endif
# endif
#endif
+#ifdef HASATTRIBUTE_DEPRECATED
+# define __attribute__deprecated__ __attribute__((deprecated))
+#endif
#ifdef HASATTRIBUTE_FORMAT
# define __attribute__format__(x,y,z) __attribute__((format(x,y,z)))
#endif
#ifdef HASATTRIBUTE_FORMAT
# define __attribute__format__(x,y,z) __attribute__((format(x,y,z)))
#endif
@@
-3173,6
+3179,9
@@
typedef pthread_key_t perl_key;
#endif
/* If we haven't defined the attributes yet, define them to blank. */
#endif
/* If we haven't defined the attributes yet, define them to blank. */
+#ifndef __attribute__deprecated__
+# define __attribute__deprecated__
+#endif
#ifndef __attribute__format__
# define __attribute__format__(x,y,z)
#endif
#ifndef __attribute__format__
# define __attribute__format__(x,y,z)
#endif