diff options
author | Father Chrysostomos <sprout@cpan.org> | 2014-12-07 17:11:21 -0800 |
---|---|---|
committer | Father Chrysostomos <sprout@cpan.org> | 2014-12-07 17:32:36 -0800 |
commit | e6dae479a92dc835be9b026ea350a20b94199aa2 (patch) | |
tree | 5913265cf5fd1110d2a3844ea0ddecdc06c8d9ff /op.h | |
parent | 1daa0c574de23f83ee2d6bba1bc312c165d72dee (diff) | |
download | perl-e6dae479a92dc835be9b026ea350a20b94199aa2.tar.gz |
Change OP_SIBLING to OpSIBLING
to match the existing convention (OpREFCNT, OpSLAB).
Dave Mitchell asked me to wait until after his multideref work
was merged.
Unfortunately, there are now CPAN modules using OP_SIBLING.
Diffstat (limited to 'op.h')
-rw-r--r-- | op.h | 21 |
1 files changed, 12 insertions, 9 deletions
@@ -923,13 +923,13 @@ is also available as well as C<OP_TYPE_IS_OR_WAS_NN> and C<OP_TYPE_ISNT_AND_WASNT_NN> which elide the NULL pointer check. -=for apidoc Am|bool|OP_HAS_SIBLING|OP *o +=for apidoc Am|bool|OpHAS_SIBLING|OP *o Returns true if o has a sibling -=for apidoc Am|bool|OP_SIBLING|OP *o +=for apidoc Am|bool|OpSIBLING|OP *o Returns the sibling of o, or NULL if there is no sibling -=for apidoc Am|bool|OP_SIBLING_set|OP *o|OP *sib +=for apidoc Am|bool|OpSIBLING_set|OP *o|OP *sib Sets the sibling of o to sib =cut @@ -969,13 +969,16 @@ Sets the sibling of o to sib ( (o) && OP_TYPE_ISNT_AND_WASNT_NN(o, type) ) #ifdef PERL_OP_PARENT -# define OP_HAS_SIBLING(o) (!cBOOL((o)->op_lastsib)) -# define OP_SIBLING(o) (0 + (o)->op_lastsib ? NULL : (o)->op_sibling) -# define OP_SIBLING_set(o, sib) ((o)->op_sibling = (sib)) +# define OpHAS_SIBLING(o) (!cBOOL((o)->op_lastsib)) +# define OpSIBLING(o) (0 + (o)->op_lastsib ? NULL : (o)->op_sibling) +# define OpSIBLING_set(o, sib) ((o)->op_sibling = (sib)) #else -# define OP_HAS_SIBLING(o) (cBOOL((o)->op_sibling)) -# define OP_SIBLING(o) (0 + (o)->op_sibling) -# define OP_SIBLING_set(o, sib) ((o)->op_sibling = (sib)) +# define OpHAS_SIBLING(o) (cBOOL((o)->op_sibling)) +# define OpSIBLING(o) (0 + (o)->op_sibling) +# define OpSIBLING_set(o, sib) ((o)->op_sibling = (sib)) +#endif +#if !defined(PERL_CORE) && !defined(PERL_EXT) +# define OP_SIBLING(o) OpSIBLING(o) #endif #define newATTRSUB(f, o, p, a, b) Perl_newATTRSUB_x(aTHX_ f, o, p, a, b, FALSE) |