Replace the 3 currently "unreachable" ops with a single op body

unimplemented_op() that panics descriptively if ever reached.

p4raw-id: //depot/perl@25937

1 files changed, 4 insertions, 1 deletions

diff --git a/opcode.pl b/opcode.pl
index ffe4901924..e3b9056b4e 100755
--- a/opcode.pl
+++ b/opcode.pl
@@ -40,7 +40,8 @@ my %alias;
 # Format is "this function" => "does these op names"
 my @raw_alias = (
 		 Perl_do_kv => [qw( keys values )],
-		);
+		 Perl_unimplemented_op => [qw(padany threadsv mapstart)],
+		 );
 
 while (my ($func, $names) = splice @raw_alias, 0, 2) {
     $alias{$_} = $func for @$names;
@@ -72,6 +73,8 @@ print <<"END";
 #define Perl_pp_i_postinc Perl_pp_postinc
 #define Perl_pp_i_postdec Perl_pp_postdec
 
+PERL_PPDEF(Perl_unimplemented_op)
+
 END
 
 print ON <<"END";