diff options
author | Vincent Pit <vince@profvince.com> | 2009-11-10 17:38:43 +0100 |
---|---|---|
committer | Vincent Pit <vince@profvince.com> | 2009-11-10 17:38:43 +0100 |
commit | 2f9e2db04087cea7010b80261940c74cde8a04df (patch) | |
tree | 844f54aadfc2c52388436905b927fa4129272c5d /proto.h | |
parent | fa58a56f3cdf71021d7d7a49e98845f57652a3fe (diff) | |
download | perl-2f9e2db04087cea7010b80261940c74cde8a04df.tar.gz |
Factor the "is this an in-place array operator construct" logic into a new is_inplace_av()
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -1431,6 +1431,11 @@ STATIC OP* S_opt_scalarhv(pTHX_ OP* rep_op) #define PERL_ARGS_ASSERT_OPT_SCALARHV \ assert(rep_op) +STATIC OP* S_is_inplace_av(pTHX_ OP* o, OP* oright) + __attribute__nonnull__(pTHX_1); +#define PERL_ARGS_ASSERT_IS_INPLACE_AV \ + assert(o) + #endif PERL_CALLCONV void Perl_leave_scope(pTHX_ I32 base); PERL_CALLCONV void Perl_lex_end(pTHX); |