From: H.Merijn Brand <h.m.brand@xs4all.nl>
Date: Mon, 31 Oct 2005 16:18:03 +0000 (+0000)
Subject: Try to preserve the lost opcode alias info in comments
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6faeeb49d0f35b2aad31c1897f53a35464728a9f;p=p5sagit%2Fp5-mst-13.2.git

Try to preserve the lost opcode alias info in comments
extent to change #25929
p4raw-link: @25929 on //depot/perl: 1d5774de323ac43a91c2a30cf2e40384e4754f98

p4raw-id: //depot/perl@25930
---

diff --git a/opcode.h b/opcode.h
index d52088a..5aef24e 100644
--- a/opcode.h
+++ b/opcode.h
@@ -894,8 +894,8 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
 	MEMBER_TO_FPTR(Perl_pp_aelem),
 	MEMBER_TO_FPTR(Perl_pp_aslice),
 	MEMBER_TO_FPTR(Perl_pp_each),
-	MEMBER_TO_FPTR(Perl_do_kv),
-	MEMBER_TO_FPTR(Perl_do_kv),
+	MEMBER_TO_FPTR(Perl_do_kv),	/* Perl_pp_values */
+	MEMBER_TO_FPTR(Perl_do_kv),	/* Perl_pp_keys */
 	MEMBER_TO_FPTR(Perl_pp_delete),
 	MEMBER_TO_FPTR(Perl_pp_exists),
 	MEMBER_TO_FPTR(Perl_pp_rv2hv),
diff --git a/opcode.pl b/opcode.pl
index a3284da..ffe4901 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -39,11 +39,11 @@ my %alias;
 
 # Format is "this function" => "does these op names"
 my @raw_alias = (
-		 Perl_do_kv => 'keys values',
+		 Perl_do_kv => [qw( keys values )],
 		);
 
 while (my ($func, $names) = splice @raw_alias, 0, 2) {
-    $alias{$_} = $func foreach split ' ', $names;
+    $alias{$_} = $func for @$names;
 }
 
 # Emit defines.
@@ -183,8 +183,13 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
 END
 
 for (@ops) {
-    my $name = $alias{$_} || "Perl_pp_$_";
-    print "\tMEMBER_TO_FPTR($name),\n" unless $_ eq "custom";
+    $_ eq "custom" and next;
+    if (my $name = $alias{$_}) {
+	print "\tMEMBER_TO_FPTR($name),\t/* Perl_pp_$_ */\n";
+    }
+    else {
+	print "\tMEMBER_TO_FPTR(Perl_pp_$_),\n";
+    }
 }
 
 print <<END;