summaryrefslogtreecommitdiff
path: root/proto.h
diff options
context:
space:
mode:
authorVincent Pit <vince@profvince.com>2009-11-10 17:38:43 +0100
committerVincent Pit <vince@profvince.com>2009-11-10 17:38:43 +0100
commit2f9e2db04087cea7010b80261940c74cde8a04df (patch)
tree844f54aadfc2c52388436905b927fa4129272c5d /proto.h
parentfa58a56f3cdf71021d7d7a49e98845f57652a3fe (diff)
downloadperl-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.h5
1 files changed, 5 insertions, 0 deletions
diff --git a/proto.h b/proto.h
index 3aa6ca362c..5d326b54ce 100644
--- a/proto.h
+++ b/proto.h
@@ -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);