diff options
| author | David Mitchell <davem@iabyn.com> | 2018-02-22 12:11:26 +0000 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2018-03-02 13:36:42 +0000 |
| commit | 50333c9768fa52a79ec159c7a43b40948291861e (patch) | |
| tree | 91ea2b71a71fc106a9f7c5751c27c6f830ef59ff /proto.h | |
| parent | ae09f008e4b03a4215db8e3151cfb0ee5f20f004 (diff) | |
| download | perl-50333c9768fa52a79ec159c7a43b40948291861e.tar.gz | |
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.
Diffstat (limited to 'proto.h')
| -rw-r--r-- | proto.h | 3 |
1 files changed, 3 insertions, 0 deletions
@@ -1366,6 +1366,9 @@ PERL_CALLCONV void Perl_init_dbargs(pTHX); PERL_CALLCONV void Perl_init_debugger(pTHX); PERL_CALLCONV int Perl_init_i18nl10n(pTHX_ int printwarn); PERL_CALLCONV int Perl_init_i18nl14n(pTHX_ int printwarn); +PERL_CALLCONV void Perl_init_named_cv(pTHX_ CV *cv, OP *nameop); +#define PERL_ARGS_ASSERT_INIT_NAMED_CV \ + assert(cv); assert(nameop) PERL_CALLCONV void Perl_init_stacks(pTHX); PERL_CALLCONV void Perl_init_tm(pTHX_ struct tm *ptm); #define PERL_ARGS_ASSERT_INIT_TM \ |