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
Shell.pm was missing its deprecation warning in 5.12. So it can't be
[perl5.git]
/
av.h
diff --git
a/av.h
b/av.h
index
c8ff2a3
..
f8c9d1b
100644
(file)
--- a/
av.h
+++ b/
av.h
@@
-8,22
+8,13
@@
*
*/
*
*/
-#define _XPVAV_ALLOCATED_HEAD \
- SSize_t xav_fill; /* Index of last element present */ \
- SSize_t xav_max /* max index for which array has space */
-
-#define _XPVAV_HEAD \
- union _xnvu xnv_u; \
- _XPVAV_ALLOCATED_HEAD
-
struct xpvav {
struct xpvav {
- _XPVAV_HEAD;
+ union _xnvu xnv_u;
+ SSize_t xav_fill; /* Index of last element present */
+ SSize_t xav_max; /* max index for which array has space */
_XPVMG_HEAD;
};
_XPVMG_HEAD;
};
-#undef _XPVAV_ALLOCATED_HEAD
-#undef _XPVAV_HEAD
-
/* SV** xav_alloc; */
#define xav_alloc xiv_u.xivu_p1
/* SV* xav_arylen; */
/* SV** xav_alloc; */
#define xav_alloc xiv_u.xivu_p1
/* SV* xav_arylen; */