[differences between cumulative patch application and perl-5.003_97a]

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

diff --git a/opcode.h b/opcode.h
index 97b3034..15331b7 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -838,9 +838,9 @@ EXT char *op_desc[] = {
        "keys",
        "delete",
        "exists operator",
-       "associative array deref",
-       "associative array elem",
-       "associative array slice",
+       "hash deref",
+       "hash elem",
+       "hash slice",
        "unpack",
        "pack",
        "split",
@@ -1052,12 +1052,14 @@ EXT char *op_desc[] = {
 };
 #endif
 
+OP *   ck_anoncode     _((OP* op));
 OP *   ck_bitop        _((OP* op));
 OP *   ck_concat       _((OP* op));
 OP *   ck_delete       _((OP* op));
 OP *   ck_eof          _((OP* op));
 OP *   ck_eval         _((OP* op));
 OP *   ck_exec         _((OP* op));
+OP *   ck_exists       _((OP* op));
 OP *   ck_ftst         _((OP* op));
 OP *   ck_fun          _((OP* op));
 OP *   ck_fun_locale   _((OP* op));
@@ -1799,7 +1801,7 @@ EXT OP * (*check[]) _((OP *op)) = {
        ck_rvconst,     /* rv2sv */
        ck_null,        /* av2arylen */
        ck_rvconst,     /* rv2cv */
-       ck_null,        /* anoncode */
+       ck_anoncode,    /* anoncode */
        ck_null,        /* prototype */
        ck_spair,       /* refgen */
        ck_null,        /* srefgen */
@@ -1867,8 +1869,8 @@ EXT OP * (*check[]) _((OP *op)) = {
        ck_scmp,        /* sgt */
        ck_scmp,        /* sle */
        ck_scmp,        /* sge */
-       ck_scmp,        /* seq */
-       ck_scmp,        /* sne */
+       ck_null,        /* seq */
+       ck_null,        /* sne */
        ck_scmp,        /* scmp */
        ck_bitop,       /* bit_and */
        ck_bitop,       /* bit_xor */
@@ -1912,7 +1914,7 @@ EXT OP * (*check[]) _((OP *op)) = {
        ck_fun,         /* values */
        ck_fun,         /* keys */
        ck_delete,      /* delete */
-       ck_delete,      /* exists */
+       ck_exists,      /* exists */
        ck_rvconst,     /* rv2hv */
        ck_null,        /* helem */
        ck_null,        /* hslice */
@@ -2156,7 +2158,7 @@ EXT U32 opargs[] = {
        0x0000098c,     /* ref */
        0x00009104,     /* bless */
        0x00000008,     /* backtick */
-       0x00001108,     /* glob */
+       0x00009908,     /* glob */
        0x00000008,     /* readline */
        0x00000008,     /* rcatline */
        0x00000104,     /* regcmaybe */
@@ -2261,7 +2263,7 @@ EXT U32 opargs[] = {
        0x00000408,     /* each */
        0x00000408,     /* values */
        0x00000408,     /* keys */
-       0x00000104,     /* delete */
+       0x00000100,     /* delete */
        0x00000114,     /* exists */
        0x00000048,     /* rv2hv */
        0x00001404,     /* helem */