Re: Change 29723 breaks t/op/inccode-tie.t on Win32

[p5sagit/p5-mst-13.2.git] / opcode.pl

diff --git a/opcode.pl b/opcode.pl
index 61ab824..ef51941 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -40,7 +40,7 @@ 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)],
+                Perl_unimplemented_op => [qw(padany mapstart)],
                 # All the ops with a body of { return NORMAL; }
                 Perl_pp_null => [qw(scalar regcmaybe lineseq scope)],
 
@@ -83,6 +83,7 @@ my @raw_alias = (
                 Perl_pp_oct => ['hex'],
                 Perl_pp_shift => ['pop'],
                 Perl_pp_sin => [qw(cos exp log sqrt)],
+                Perl_pp_bit_or => ['bit_xor'],
                );
 
 while (my ($func, $names) = splice @raw_alias, 0, 2) {
@@ -97,8 +98,8 @@ print <<"END";
  *
  *    opcode.h
  *
- *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999,
- *    2000, 2001, 2002, 2003, 2004, 2005, 2006 by Larry Wall and others
+ *    Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000,
+ *    2001, 2002, 2003, 2004, 2005, 2006, 2007 by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -125,7 +126,7 @@ print ON <<"END";
  *    opnames.h
  *
  *    Copyright (C) 1999, 2000, 2001, 2002, 2003, 2004, 2005, 2006,
- *    by Larry Wall and others
+ *    2007 by Larry Wall and others
  *
  *    You may distribute under the terms of either the GNU General Public
  *    License or the Artistic License, as specified in the README file.
@@ -286,9 +287,9 @@ print <<END;
 #ifndef PERL_GLOBAL_STRUCT_INIT
 
 #ifndef DOINIT
-EXT const U32 PL_opargs[];
+EXTCONST U32 PL_opargs[];
 #else
-EXT const U32 PL_opargs[] = {
+EXTCONST U32 PL_opargs[] = {
 END
 
 %argnum = (
@@ -585,7 +586,7 @@ bless               bless                   ck_fun          s@      S S?
 
 # Pushy I/O.
 
-backtick       quoted execution (``, qx)       ck_open         t%      
+backtick       quoted execution (``, qx)       ck_open         t%      S
 # glob defaults its first arg to $_
 glob           glob                    ck_glob         t@      S?
 readline       <HANDLE>                ck_null         t%      F?
@@ -884,23 +885,23 @@ fteread           -r                      ck_ftst         isu-    F-
 ftewrite       -w                      ck_ftst         isu-    F-
 fteexec                -x                      ck_ftst         isu-    F-
 ftis           -e                      ck_ftst         isu-    F-
-fteowned       -o                      ck_ftst         isu-    F-
-ftrowned       -O                      ck_ftst         isu-    F-
-ftzero         -z                      ck_ftst         isu-    F-
 ftsize         -s                      ck_ftst         istu-   F-
 ftmtime                -M                      ck_ftst         stu-    F-
 ftatime                -A                      ck_ftst         stu-    F-
 ftctime                -C                      ck_ftst         stu-    F-
+ftrowned       -O                      ck_ftst         isu-    F-
+fteowned       -o                      ck_ftst         isu-    F-
+ftzero         -z                      ck_ftst         isu-    F-
 ftsock         -S                      ck_ftst         isu-    F-
 ftchr          -c                      ck_ftst         isu-    F-
 ftblk          -b                      ck_ftst         isu-    F-
 ftfile         -f                      ck_ftst         isu-    F-
 ftdir          -d                      ck_ftst         isu-    F-
 ftpipe         -p                      ck_ftst         isu-    F-
-ftlink         -l                      ck_ftst         isu-    F-
 ftsuid         -u                      ck_ftst         isu-    F-
 ftsgid         -g                      ck_ftst         isu-    F-
 ftsvtx         -k                      ck_ftst         isu-    F-
+ftlink         -l                      ck_ftst         isu-    F-
 fttty          -t                      ck_ftst         is-     F-
 fttext         -T                      ck_ftst         isu-    F-
 ftbinary       -B                      ck_ftst         isu-    F-
@@ -973,9 +974,9 @@ msgrcv              msgrcv                  ck_fun          imst@   S S S S S
 
 # Semaphores.
 
+semop          semop                   ck_fun          imst@   S S
 semget         semget                  ck_fun          imst@   S S S
 semctl         semctl                  ck_fun          imst@   S S S S
-semop          semop                   ck_fun          imst@   S S
 
 # Eval.
 
@@ -1027,7 +1028,6 @@ syscall           syscall                 ck_fun          imst@   S L
 
 # For multi-threading
 lock           lock                    ck_rfun         s%      R
-threadsv       per-thread value        ck_null         ds0
 
 # Control (contd.)
 setstate       set statement info      ck_null         s;
@@ -1044,7 +1044,7 @@ break             break                   ck_null         0
 continue       continue                ck_null         0
 smartmatch     smart match             ck_smartmatch   s2
 
-say            say                     ck_say          ims@    F? L
+say            say                     ck_listiob      ims@    F? L
 
 # Add new ops before this, the custom operator.