diff options
| author | Branislav Zahradník <barney@cpan.org> | 2022-10-04 12:05:20 +0200 |
|---|---|---|
| committer | Yves Orton <demerphq@gmail.com> | 2023-02-20 22:32:22 +0800 |
| commit | 8a79dfad9838dc5fbf041bb663d71b991851fd6f (patch) | |
| tree | 17e7712c4cdde6ebfad73f9c0b8c8bd5d18addec /regen | |
| parent | 0f2b2db7283cc9e7d03439c5cc73d3e9cadd54b4 (diff) | |
| download | perl-8a79dfad9838dc5fbf041bb663d71b991851fd6f.tar.gz | |
pp: use PP macro consistently
Diffstat (limited to 'regen')
| -rwxr-xr-x | regen/opcode.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/regen/opcode.pl b/regen/opcode.pl index b62aac60b9..1dbd77aca1 100755 --- a/regen/opcode.pl +++ b/regen/opcode.pl @@ -1325,12 +1325,13 @@ sub generate_pp_proto_h { my %funcs; for (@ops) { - my $name = $alias{$_} ? $alias{$_}[0] : "Perl_pp_$_"; + my $name = $alias{$_} ? $alias{$_}[0] : "pp_$_"; + $name =~ s/^Perl_//; ++$funcs{$name}; } for (sort keys %funcs) { - print $pp qq{PERL_CALLCONV OP *$_(pTHX) __attribute__visibility__("hidden");\n}; + print $pp qq{PERL_CALLCONV PP($_) __attribute__visibility__("hidden");\n}; } read_only_bottom_close_and_rename(select); |