summaryrefslogtreecommitdiff
path: root/embed.fnc
diff options
context:
space:
mode:
authorDavid Mitchell <davem@iabyn.com>2015-04-17 20:38:49 +0100
committerDavid Mitchell <davem@iabyn.com>2015-04-19 18:42:00 +0100
commit1fafe688be3ff13b81d5e18b2a8766dd719ee8eb (patch)
tree20f30acb1bdcf2fb7761b3d570ac7c18630b6e5c /embed.fnc
parente7c18dde420590ee76509d2187610a43444ad069 (diff)
downloadperl-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 'embed.fnc')
-rw-r--r--embed.fnc2
1 files changed, 2 insertions, 0 deletions
diff --git a/embed.fnc b/embed.fnc
index 1d8620be19..fc9f3f3143 100644
--- a/embed.fnc
+++ b/embed.fnc
@@ -783,7 +783,9 @@ Ap |void |op_refcnt_lock
Ap |void |op_refcnt_unlock
Apdn |OP* |op_sibling_splice|NULLOK OP *parent|NULLOK OP *start \
|int del_count|NULLOK OP* insert
+#ifdef PERL_OP_PARENT
Apdn |OP* |op_parent|NN OP *o
+#endif
#if defined(PERL_IN_OP_C)
s |OP* |listkids |NULLOK OP* o
#endif