OP_LOCK, /* 346 */
OP_THREADSV, /* 347 */
OP_SETSTATE, /* 348 */
+ OP_METHOD_NAMED,/* 349 */
OP_max
} opcode;
-#define MAXO 349
+#define MAXO 350
START_EXTERN_C
"lock",
"threadsv",
"setstate",
+ "method_named",
};
#endif
"lock",
"per-thread variable",
"set statement info",
+ "method with known name",
};
#endif
Perl_pp_lock,
Perl_pp_threadsv,
Perl_pp_setstate,
+ Perl_pp_method_named,
};
#endif
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 */
Perl_ck_rfun, /* lock */
Perl_ck_null, /* threadsv */
Perl_ck_null, /* setstate */
+ Perl_ck_null, /* method_named */
};
#endif
0x00000200, /* flop */
0x00000600, /* and */
0x00000600, /* or */
- 0x00022606, /* xor */
+ 0x00022406, /* xor */
0x00000640, /* cond_expr */
0x00000604, /* andassign */
0x00000604, /* orassign */
0x00001a44, /* dump */
0x00001a44, /* goto */
0x00013644, /* exit */
- 0x0012c81c, /* open */
+ 0x0132c81c, /* open */
0x0001d614, /* close */
0x000cc814, /* pipe_op */
0x0000d61c, /* fileno */
0x0004281d, /* syscall */
0x00003604, /* lock */
0x00000044, /* threadsv */
- 0x00000000, /* setstate */
+ 0x00001404, /* setstate */
+ 0x00000c40, /* method_named */
};
#endif