Use long doubles only if they are useful.

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

diff --git a/opcode.h b/opcode.h
index 629eef4..58d86ea 100644 (file)
--- a/opcode.h
+++ b/opcode.h
@@ -357,10 +357,12 @@ typedef enum {
        OP_SYSCALL,     /* 345 */
        OP_LOCK,        /* 346 */
        OP_THREADSV,    /* 347 */
+       OP_SETSTATE,    /* 348 */
+       OP_METHOD_NAMED,/* 349 */
        OP_max          
 } opcode;
 
-#define MAXO 348
+#define MAXO 350
 
 
 START_EXTERN_C
@@ -717,6 +719,8 @@ EXT char *PL_op_name[] = {
        "syscall",
        "lock",
        "threadsv",
+       "setstate",
+       "method_named",
 };
 #endif
 
@@ -1072,6 +1076,8 @@ EXT char *PL_op_desc[] = {
        "syscall",
        "lock",
        "per-thread variable",
+       "set statement info",
+       "method with known name",
 };
 #endif
 
@@ -1432,6 +1438,8 @@ EXT OP * (CPERLscope(*PL_ppaddr)[])(pTHX) = {
        Perl_pp_syscall,
        Perl_pp_lock,
        Perl_pp_threadsv,
+       Perl_pp_setstate,
+       Perl_pp_method_named,
 };
 #endif
 
@@ -1604,7 +1612,7 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
        Perl_ck_null,   /* cond_expr */
        Perl_ck_null,   /* andassign */
        Perl_ck_null,   /* orassign */
-       Perl_ck_null,   /* method */
+       Perl_ck_method, /* method */
        Perl_ck_subr,   /* entersub */
        Perl_ck_null,   /* leavesub */
        Perl_ck_fun,    /* caller */
@@ -1787,6 +1795,8 @@ EXT OP * (CPERLscope(*PL_check)[]) (pTHX_ OP *op) = {
        Perl_ck_fun,    /* syscall */
        Perl_ck_rfun,   /* lock */
        Perl_ck_null,   /* threadsv */
+       Perl_ck_null,   /* setstate */
+       Perl_ck_null,   /* method_named */
 };
 #endif
 
@@ -2142,6 +2152,8 @@ EXT U32 PL_opargs[] = {
        0x0004281d,     /* syscall */
        0x00003604,     /* lock */
        0x00000044,     /* threadsv */
+       0x00001404,     /* setstate */
+       0x00000c40,     /* method_named */
 };
 #endif