regen/opcdode.pl: remove alternate PP function implementation support

This was only used for working around a bug in glibc < 2.3, which was
removed in the previous commit.

1 files changed, 4 insertions, 14 deletions

diff --git a/regen/opcode.pl b/regen/opcode.pl
index 593dd61e72..e7b59a467f 100755
--- a/regen/opcode.pl
+++ b/regen/opcode.pl
@@ -71,9 +71,9 @@ while (<OPS>) {
     $args{$key} = $args;
 }
 
-# Set up aliases, and alternative funcs
+# Set up aliases
 
-my (%alias, %alts);
+my %alias;
 
 # Format is "this function" => "does these op names"
 my @raw_alias = (
@@ -144,13 +144,11 @@ my @raw_alias = (
 while (my ($func, $names) = splice @raw_alias, 0, 2) {
     if (ref $names eq 'ARRAY') {
 	foreach (@$names) {
-            defined $alias{$_}
-            ? $alts{$_} : $alias{$_} = [$func, ''];
+            $alias{$_} = [$func, ''];
 	}
     } else {
 	while (my ($opname, $cond) = each %$names) {
-            defined $alias{$opname}
-            ? $alts{$opname} : $alias{$opname} = [$func, $cond];
+            $alias{$opname} = [$func, $cond];
 	}
     }
 }
@@ -1249,14 +1247,6 @@ my $pp = open_new('pp_proto.h', '>',
 	++$funcs{$name};
     }
     print $pp "PERL_CALLCONV OP *$_(pTHX);\n" foreach sort keys %funcs;
-
-    print $pp "\n/* alternative functions */\n" if keys %alts;
-    for my $fn (sort keys %alts) {
-        my ($x, $cond) = @{$alts{$fn}};
-        print $pp "$cond\n" if $cond;
-        print $pp "PERL_CALLCONV OP *$x(pTHX);\n";
-        print $pp "#endif\n" if $cond;
-    }
 }
 
 print $oc "\n\n";