From 8a79dfad9838dc5fbf041bb663d71b991851fd6f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Branislav=20Zahradn=C3=ADk?= <barney@cpan.org>
Date: Tue, 4 Oct 2022 12:05:20 +0200
Subject: pp: use PP macro consistently

---
 regen/opcode.pl | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'regen')

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);
-- 
cgit v1.2.1