diff options
| author | David Mitchell <davem@iabyn.com> | 2015-04-17 20:38:49 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2015-04-19 18:42:00 +0100 |
| commit | 1fafe688be3ff13b81d5e18b2a8766dd719ee8eb (patch) | |
| tree | 20f30acb1bdcf2fb7761b3d570ac7c18630b6e5c /proto.h | |
| parent | e7c18dde420590ee76509d2187610a43444ad069 (diff) | |
| download | perl-1fafe688be3ff13b81d5e18b2a8766dd719ee8eb.tar.gz | |
op_parent(): only exist under -DPERL_OP_PARENT
Make the function Perl_op_parent() only be present in perls built with
-DPERL_OP_PARENT. Previously the function was present in all builds, but
always returned NULL on non PERL_OP_PARENT builds.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 12 |
1 files changed, 7 insertions, 5 deletions
@@ -3270,11 +3270,6 @@ PERL_CALLCONV void Perl_op_null(pTHX_ OP* o) #define PERL_ARGS_ASSERT_OP_NULL \ assert(o) -PERL_CALLCONV OP* Perl_op_parent(OP *o) - __attribute__nonnull__(1); -#define PERL_ARGS_ASSERT_OP_PARENT \ - assert(o) - PERL_CALLCONV OP* Perl_op_prepend_elem(pTHX_ I32 optype, OP* first, OP* last); PERL_CALLCONV void Perl_op_refcnt_lock(pTHX); PERL_CALLCONV void Perl_op_refcnt_unlock(pTHX); @@ -8033,6 +8028,13 @@ STATIC void S_mem_log_common(enum mem_log_type mlt, const UV n, const UV typesiz # endif #endif +#if defined(PERL_OP_PARENT) +PERL_CALLCONV OP* Perl_op_parent(OP *o) + __attribute__nonnull__(1); +#define PERL_ARGS_ASSERT_OP_PARENT \ + assert(o) + +#endif #if defined(PERL_USES_PL_PIDSTATUS) && defined(PERL_IN_UTIL_C) STATIC void S_pidgone(pTHX_ Pid_t pid, int status); #endif |