add Perl_init_named_cv() functiom

This moves a block of code out from perly.y into its own function, because it will shortly be needed in more than one place. Should be no functional changes.
Perl · Feb 26, 2018 · 3d8071e · 3d8071e
1 parent 9fa1876
commit 3d8071e
Show file tree

Hide file tree

Showing 8 changed files with 284 additions and 278 deletions.
diff --git a/embed.fnc b/embed.fnc
@@ -1512,6 +1512,7 @@ Anp	|Signal_t |csighandler	|int sig
 #endif
 Ap	|SV**	|stack_grow	|NN SV** sp|NN SV** p|SSize_t n
 Ap	|I32	|start_subparse	|I32 is_format|U32 flags
+Xp	|void	|init_named_cv	|NN CV *cv|NN OP *nameop
 : Used in pp_ctl.c
 p	|void	|sub_crush_depth|NN CV* cv
 Amd	|bool	|sv_2bool	|NN SV *const sv

diff --git a/embed.h b/embed.h
@@ -1277,6 +1277,7 @@
 #define init_argv_symbols(a,b)	Perl_init_argv_symbols(aTHX_ a,b)
 #define init_constants()	Perl_init_constants(aTHX)
 #define init_debugger()		Perl_init_debugger(aTHX)
+#define init_named_cv(a,b)	Perl_init_named_cv(aTHX_ a,b)
 #define invert(a)		Perl_invert(aTHX_ a)
 #define io_close(a,b,c,d)	Perl_io_close(aTHX_ a,b,c,d)
 #define isinfnansv(a)		Perl_isinfnansv(aTHX_ a)