From 8cb94cf6eb83ea14ef27697517f7e92842876536 Mon Sep 17 00:00:00 2001 From: "Paul \"LeoNerd\" Evans" Date: Fri, 27 Jan 2023 15:28:52 +0000 Subject: Expose {optimize,finalize}_optree() as real API functions These are required by XS modules which want to create custom LOGOP-shaped optrees, to ensure that both sides of the tree get optimised and finalised. See also https://github.com/Perl/perl5/issues/20743 --- embed.fnc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'embed.fnc') diff --git a/embed.fnc b/embed.fnc index 9c9b2ba0bb..643f2ea9c7 100644 --- a/embed.fnc +++ b/embed.fnc @@ -1802,7 +1802,8 @@ Axmd |OP * |op_lvalue |NULLOK OP *o \ poX |OP * |op_lvalue_flags|NULLOK OP *o \ |I32 type \ |U32 flags -pd |void |finalize_optree|NN OP *o +Apd |void |optimize_optree|NN OP *o +Apd |void |finalize_optree|NN OP *o : Used in op.c and pp_sys.c p |int |mode_from_discipline \ |NULLOK const char *s \ @@ -4585,7 +4586,6 @@ p |void |check_hash_fields_and_hekify \ |NULLOK SVOP *key_op \ |int real p |SV * |op_varname |NN const OP *o -pd |void |optimize_optree|NN OP *o p |void |warn_elem_scalar_context \ |NN const OP *o \ |NN SV *name \ -- cgit v1.2.1