Start support for fake threads.

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

diff --git a/opcode.pl b/opcode.pl
index 93fcbd7..5250d57 100755 (executable)
--- a/opcode.pl
+++ b/opcode.pl
@@ -1,5 +1,6 @@
 #!/usr/bin/perl
 
+unlink "opcode.h";
 open(OC, ">opcode.h") || die "Can't create opcode.h: $!\n";
 select OC;
 
@@ -81,13 +82,13 @@ END
 # Emit function declarations.
 
 for (sort keys %ckname) {
-    print "OP *\t", &tab(3,$_),"_((OP* op));\n";
+    print "OP *\t", &tab(3,$_),"_((OP* o));\n";
 }
 
 print "\n";
 
 for (@ops) {
-    print "OP *\t", &tab(3, "pp_\L$_"), "_((void));\n";
+    print "OP *\t", &tab(3, "pp_\L$_"), "_((ARGSproto));\n";
 }
 
 # Emit ppcode switch array.
@@ -213,7 +214,7 @@ rv2gv               ref-to-glob cast        ck_rvconst      ds
 rv2sv          scalar deref            ck_rvconst      ds      
 av2arylen      array length            ck_null         is      
 rv2cv          subroutine deref        ck_rvconst      d
-anoncode       anonymous subroutine    ck_null         0       
+anoncode       anonymous subroutine    ck_anoncode     0       
 prototype      subroutine prototype    ck_null         s       S
 refgen         reference constructor   ck_spair        m       L
 srefgen                scalar ref constructor  ck_null         fs      S
@@ -223,7 +224,8 @@ bless               bless                   ck_fun          s       S S?
 # Pushy I/O.
 
 backtick       backticks               ck_null         t       
-glob           glob                    ck_glob         t       S S
+# glob defaults its first arg to $_
+glob           glob                    ck_glob         t       S? S?
 readline       <HANDLE>                ck_null         t       
 rcatline       append I/O operator     ck_null         t       
 
@@ -296,13 +298,13 @@ i_ne              integer ne              ck_null         ifs     S S
 ncmp           spaceship operator      ck_null         Iifst   S S
 i_ncmp         integer spaceship       ck_null         ifst    S S
 
-slt            string lt               ck_null         ifs     S S
-sgt            string gt               ck_null         ifs     S S
-sle            string le               ck_null         ifs     S S
-sge            string ge               ck_null         ifs     S S
+slt            string lt               ck_scmp         ifs     S S
+sgt            string gt               ck_scmp         ifs     S S
+sle            string le               ck_scmp         ifs     S S
+sge            string ge               ck_scmp         ifs     S S
 seq            string eq               ck_null         ifs     S S
 sne            string ne               ck_null         ifs     S S
-scmp           string comparison       ck_null         ifst    S S
+scmp           string comparison       ck_scmp         ifst    S S
 
 bit_and                bitwise and             ck_bitop        fst     S S
 bit_xor                bitwise xor             ck_bitop        fst     S S
@@ -324,9 +326,11 @@ exp                exp                     ck_fun          fstu    S?
 log            log                     ck_fun          fstu    S?
 sqrt           sqrt                    ck_fun          fstu    S?
 
+# Lowbrow math.
+
 int            int                     ck_fun          fstu    S?
-hex            hex                     ck_fun          istu    S?
-oct            oct                     ck_fun          istu    S?
+hex            hex                     ck_fun          fstu    S?
+oct            oct                     ck_fun          fstu    S?
 abs            abs                     ck_fun          fstu    S?
 
 # String stuff.
@@ -338,15 +342,15 @@ vec               vec                     ck_fun          ist     S S S
 index          index                   ck_index        ist     S S S?
 rindex         rindex                  ck_index        ist     S S S?
 
-sprintf                sprintf                 ck_fun          mst     S L
-formline       formline                ck_formline     ms      S L
+sprintf                sprintf                 ck_fun_locale   mst     S L
+formline       formline                ck_fun          ms      S L
 ord            ord                     ck_fun          ifstu   S?
 chr            chr                     ck_fun          fstu    S?
 crypt          crypt                   ck_fun          fst     S S
-ucfirst                upper case first        ck_fun          fstu    S?
-lcfirst                lower case first        ck_fun          fstu    S?
-uc             upper case              ck_fun          fstu    S?
-lc             lower case              ck_fun          fstu    S?
+ucfirst                upper case first        ck_fun_locale   fstu    S?
+lcfirst                lower case first        ck_fun_locale   fstu    S?
+uc             upper case              ck_fun_locale   fstu    S?
+lc             lower case              ck_fun_locale   fstu    S?
 quotemeta      quote metachars         ck_fun          fstu    S?
 
 # Arrays.
@@ -356,16 +360,16 @@ aelemfast known array element     ck_null         s       A S
 aelem          array element           ck_null         s       A S
 aslice         array slice             ck_null         m       A L
 
-# Associative arrays.
+# Hashes.
 
 each           each                    ck_fun          t       H
 values         values                  ck_fun          t       H
 keys           keys                    ck_fun          t       H
-delete         delete                  ck_delete       s       S
-exists         exists operator         ck_delete       is      S
-rv2hv          associative array deref ck_rvconst      dt      
-helem          associative array elem  ck_null         s       H S
-hslice         associative array slice ck_null         m       H L
+delete         delete                  ck_delete       0       S
+exists         exists operator         ck_exists       is      S
+rv2hv          hash deref              ck_rvconst      dt      
+helem          hash elem               ck_null         s       H S
+hslice         hash slice              ck_null         m       H L
 
 # Explosives and implosives.
 
@@ -468,6 +472,7 @@ prtf                printf                  ck_listiob      ims     F? L
 print          print                   ck_listiob      ims     F? L
 
 sysopen                sysopen                 ck_fun          s       F S S S?
+sysseek                sysseek                 ck_fun          s       F S S
 sysread                sysread                 ck_fun          imst    F R S S?
 syswrite       syswrite                ck_fun          imst    F S S S?
 
@@ -647,3 +652,6 @@ getlogin    getlogin                ck_null         st
 # Miscellaneous.
 
 syscall                syscall                 ck_fun          imst    S L
+
+# For multi-threading
+lock           lock                    ck_null         s       S