*
* 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.
"i_negate",
"not",
"complement",
+ "smartmatch",
"atan2",
"sin",
"cos",
"and",
"or",
"xor",
+ "dor",
"cond_expr",
"andassign",
"orassign",
+ "dorassign",
"method",
"entersub",
"leavesub",
"dump",
"goto",
"exit",
+ "setstate",
+ "method_named",
+ "entergiven",
+ "leavegiven",
+ "enterwhen",
+ "leavewhen",
+ "break",
+ "continue",
"open",
"close",
"pipe_op",
"leavewrite",
"prtf",
"print",
+ "say",
"sysopen",
"sysseek",
"sysread",
"getlogin",
"syscall",
"lock",
- "threadsv",
- "setstate",
- "method_named",
- "dor",
- "dorassign",
- "entergiven",
- "leavegiven",
- "enterwhen",
- "leavewhen",
- "break",
- "continue",
- "smartmatch",
- "say",
+ "once",
"custom",
};
#endif
"integer negation (-)",
"not",
"1's complement (~)",
+ "smart match",
"atan2",
"sin",
"cos",
"logical and (&&)",
"logical or (||)",
"logical xor",
+ "defined or (//)",
"conditional expression",
"logical and assignment (&&=)",
"logical or assignment (||=)",
+ "defined or assignment (//=)",
"method lookup",
"subroutine entry",
"subroutine exit",
"dump",
"goto",
"exit",
+ "set statement info",
+ "method with known name",
+ "given()",
+ "leave given block",
+ "when()",
+ "leave when block",
+ "break",
+ "continue",
"open",
"close",
"pipe",
"write exit",
"printf",
"print",
+ "say",
"sysopen",
"sysseek",
"sysread",
"getlogin",
"syscall",
"lock",
- "per-thread value",
- "set statement info",
- "method with known name",
- "defined or (//)",
- "defined or assignment (//=)",
- "given()",
- "leave given block",
- "when()",
- "leave when block",
- "break",
- "continue",
- "smart match",
- "say",
+ "once",
"unknown custom operator",
};
#endif
MEMBER_TO_FPTR(Perl_pp_i_negate),
MEMBER_TO_FPTR(Perl_pp_not),
MEMBER_TO_FPTR(Perl_pp_complement),
+ MEMBER_TO_FPTR(Perl_pp_smartmatch),
MEMBER_TO_FPTR(Perl_pp_atan2),
MEMBER_TO_FPTR(Perl_pp_sin),
MEMBER_TO_FPTR(Perl_pp_sin), /* Perl_pp_cos */
MEMBER_TO_FPTR(Perl_do_kv), /* Perl_pp_keys */
MEMBER_TO_FPTR(Perl_pp_delete),
MEMBER_TO_FPTR(Perl_pp_exists),
- MEMBER_TO_FPTR(Perl_pp_rv2hv),
+ MEMBER_TO_FPTR(Perl_pp_rv2av), /* Perl_pp_rv2hv */
MEMBER_TO_FPTR(Perl_pp_helem),
MEMBER_TO_FPTR(Perl_pp_hslice),
MEMBER_TO_FPTR(Perl_pp_unpack),
MEMBER_TO_FPTR(Perl_pp_and),
MEMBER_TO_FPTR(Perl_pp_or),
MEMBER_TO_FPTR(Perl_pp_xor),
+ MEMBER_TO_FPTR(Perl_pp_defined), /* Perl_pp_dor */
MEMBER_TO_FPTR(Perl_pp_cond_expr),
MEMBER_TO_FPTR(Perl_pp_and), /* Perl_pp_andassign */
MEMBER_TO_FPTR(Perl_pp_or), /* Perl_pp_orassign */
+ MEMBER_TO_FPTR(Perl_pp_defined), /* Perl_pp_dorassign */
MEMBER_TO_FPTR(Perl_pp_method),
MEMBER_TO_FPTR(Perl_pp_entersub),
MEMBER_TO_FPTR(Perl_pp_leavesub),
MEMBER_TO_FPTR(Perl_pp_goto), /* Perl_pp_dump */
MEMBER_TO_FPTR(Perl_pp_goto),
MEMBER_TO_FPTR(Perl_pp_exit),
+ MEMBER_TO_FPTR(Perl_pp_setstate),
+ MEMBER_TO_FPTR(Perl_pp_method_named),
+ MEMBER_TO_FPTR(Perl_pp_entergiven),
+ MEMBER_TO_FPTR(Perl_pp_leavegiven),
+ MEMBER_TO_FPTR(Perl_pp_enterwhen),
+ MEMBER_TO_FPTR(Perl_pp_leavewhen),
+ MEMBER_TO_FPTR(Perl_pp_break),
+ MEMBER_TO_FPTR(Perl_pp_continue),
MEMBER_TO_FPTR(Perl_pp_open),
MEMBER_TO_FPTR(Perl_pp_close),
MEMBER_TO_FPTR(Perl_pp_pipe_op),
MEMBER_TO_FPTR(Perl_pp_leavewrite),
MEMBER_TO_FPTR(Perl_pp_prtf),
MEMBER_TO_FPTR(Perl_pp_print),
+ MEMBER_TO_FPTR(Perl_pp_print), /* Perl_pp_say */
MEMBER_TO_FPTR(Perl_pp_sysopen),
MEMBER_TO_FPTR(Perl_pp_sysseek),
MEMBER_TO_FPTR(Perl_pp_sysread),
MEMBER_TO_FPTR(Perl_pp_getlogin),
MEMBER_TO_FPTR(Perl_pp_syscall),
MEMBER_TO_FPTR(Perl_pp_lock),
- MEMBER_TO_FPTR(Perl_unimplemented_op), /* Perl_pp_threadsv */
- MEMBER_TO_FPTR(Perl_pp_setstate),
- MEMBER_TO_FPTR(Perl_pp_method_named),
- MEMBER_TO_FPTR(Perl_pp_defined), /* Perl_pp_dor */
- MEMBER_TO_FPTR(Perl_pp_defined), /* Perl_pp_dorassign */
- MEMBER_TO_FPTR(Perl_pp_entergiven),
- MEMBER_TO_FPTR(Perl_pp_leavegiven),
- MEMBER_TO_FPTR(Perl_pp_enterwhen),
- MEMBER_TO_FPTR(Perl_pp_leavewhen),
- MEMBER_TO_FPTR(Perl_pp_break),
- MEMBER_TO_FPTR(Perl_pp_continue),
- MEMBER_TO_FPTR(Perl_pp_smartmatch),
- MEMBER_TO_FPTR(Perl_pp_print), /* Perl_pp_say */
+ MEMBER_TO_FPTR(Perl_pp_once),
+ MEMBER_TO_FPTR(Perl_unimplemented_op), /* Perl_pp_custom */
}
#endif
#ifdef PERL_PPADDR_INITED
MEMBER_TO_FPTR(Perl_ck_fun), /* bless */
MEMBER_TO_FPTR(Perl_ck_open), /* backtick */
MEMBER_TO_FPTR(Perl_ck_glob), /* glob */
- MEMBER_TO_FPTR(Perl_ck_null), /* readline */
+ MEMBER_TO_FPTR(Perl_ck_readline), /* readline */
MEMBER_TO_FPTR(Perl_ck_null), /* rcatline */
MEMBER_TO_FPTR(Perl_ck_fun), /* regcmaybe */
MEMBER_TO_FPTR(Perl_ck_fun), /* regcreset */
MEMBER_TO_FPTR(Perl_ck_null), /* i_negate */
MEMBER_TO_FPTR(Perl_ck_null), /* not */
MEMBER_TO_FPTR(Perl_ck_bitop), /* complement */
+ MEMBER_TO_FPTR(Perl_ck_smartmatch), /* smartmatch */
MEMBER_TO_FPTR(Perl_ck_fun), /* atan2 */
MEMBER_TO_FPTR(Perl_ck_fun), /* sin */
MEMBER_TO_FPTR(Perl_ck_fun), /* cos */
MEMBER_TO_FPTR(Perl_ck_null), /* and */
MEMBER_TO_FPTR(Perl_ck_null), /* or */
MEMBER_TO_FPTR(Perl_ck_null), /* xor */
+ MEMBER_TO_FPTR(Perl_ck_null), /* dor */
MEMBER_TO_FPTR(Perl_ck_null), /* cond_expr */
MEMBER_TO_FPTR(Perl_ck_null), /* andassign */
MEMBER_TO_FPTR(Perl_ck_null), /* orassign */
+ MEMBER_TO_FPTR(Perl_ck_null), /* dorassign */
MEMBER_TO_FPTR(Perl_ck_method), /* method */
MEMBER_TO_FPTR(Perl_ck_subr), /* entersub */
MEMBER_TO_FPTR(Perl_ck_null), /* leavesub */
MEMBER_TO_FPTR(Perl_ck_null), /* dump */
MEMBER_TO_FPTR(Perl_ck_null), /* goto */
MEMBER_TO_FPTR(Perl_ck_exit), /* exit */
+ MEMBER_TO_FPTR(Perl_ck_null), /* setstate */
+ MEMBER_TO_FPTR(Perl_ck_null), /* method_named */
+ MEMBER_TO_FPTR(Perl_ck_null), /* entergiven */
+ MEMBER_TO_FPTR(Perl_ck_null), /* leavegiven */
+ MEMBER_TO_FPTR(Perl_ck_null), /* enterwhen */
+ MEMBER_TO_FPTR(Perl_ck_null), /* leavewhen */
+ MEMBER_TO_FPTR(Perl_ck_null), /* break */
+ MEMBER_TO_FPTR(Perl_ck_null), /* continue */
MEMBER_TO_FPTR(Perl_ck_open), /* open */
MEMBER_TO_FPTR(Perl_ck_fun), /* close */
MEMBER_TO_FPTR(Perl_ck_fun), /* pipe_op */
MEMBER_TO_FPTR(Perl_ck_null), /* leavewrite */
MEMBER_TO_FPTR(Perl_ck_listiob), /* prtf */
MEMBER_TO_FPTR(Perl_ck_listiob), /* print */
+ MEMBER_TO_FPTR(Perl_ck_listiob), /* say */
MEMBER_TO_FPTR(Perl_ck_fun), /* sysopen */
MEMBER_TO_FPTR(Perl_ck_fun), /* sysseek */
MEMBER_TO_FPTR(Perl_ck_fun), /* sysread */
MEMBER_TO_FPTR(Perl_ck_null), /* getlogin */
MEMBER_TO_FPTR(Perl_ck_fun), /* syscall */
MEMBER_TO_FPTR(Perl_ck_rfun), /* lock */
- MEMBER_TO_FPTR(Perl_ck_null), /* threadsv */
- MEMBER_TO_FPTR(Perl_ck_null), /* setstate */
- MEMBER_TO_FPTR(Perl_ck_null), /* method_named */
- MEMBER_TO_FPTR(Perl_ck_null), /* dor */
- MEMBER_TO_FPTR(Perl_ck_null), /* dorassign */
- MEMBER_TO_FPTR(Perl_ck_null), /* entergiven */
- MEMBER_TO_FPTR(Perl_ck_null), /* leavegiven */
- MEMBER_TO_FPTR(Perl_ck_null), /* enterwhen */
- MEMBER_TO_FPTR(Perl_ck_null), /* leavewhen */
- MEMBER_TO_FPTR(Perl_ck_null), /* break */
- MEMBER_TO_FPTR(Perl_ck_null), /* continue */
- MEMBER_TO_FPTR(Perl_ck_smartmatch), /* smartmatch */
- MEMBER_TO_FPTR(Perl_ck_listiob), /* say */
+ MEMBER_TO_FPTR(Perl_ck_null), /* once */
MEMBER_TO_FPTR(Perl_ck_null), /* custom */
}
#endif
0x00002206, /* srefgen */
0x0001368c, /* ref */
0x00122804, /* bless */
- 0x00003608, /* backtick */
+ 0x00013688, /* backtick */
0x00012808, /* glob */
0x0001d608, /* readline */
0x00000c08, /* rcatline */
0x0000231e, /* i_negate */
0x00002216, /* not */
0x0000220e, /* complement */
+ 0x00000404, /* smartmatch */
0x0002290e, /* atan2 */
0x0001378e, /* sin */
0x0001378e, /* cos */
0x00000600, /* and */
0x00000600, /* or */
0x00022406, /* xor */
+ 0x00000600, /* dor */
0x00000640, /* cond_expr */
0x00000604, /* andassign */
0x00000604, /* orassign */
+ 0x00000604, /* dorassign */
0x00000240, /* method */
0x00004249, /* entersub */
0x00000200, /* leavesub */
0x00001a44, /* dump */
0x00001a44, /* goto */
0x00013644, /* exit */
+ 0x00001404, /* setstate */
+ 0x00000c40, /* method_named */
+ 0x00000640, /* entergiven */
+ 0x00000200, /* leavegiven */
+ 0x00000640, /* enterwhen */
+ 0x00000200, /* leavewhen */
+ 0x00000000, /* break */
+ 0x00000000, /* continue */
0x0052c81d, /* open */
0x0001d614, /* close */
0x000cc814, /* pipe_op */
0x00000200, /* leavewrite */
0x0005c815, /* prtf */
0x0005c815, /* print */
+ 0x0005c815, /* say */
0x1222c804, /* sysopen */
0x0022c804, /* sysseek */
0x122ec81d, /* sysread */
0x0000000c, /* getlogin */
0x0004281d, /* syscall */
0x0000f604, /* lock */
- 0x00000044, /* threadsv */
- 0x00001404, /* setstate */
- 0x00000c40, /* method_named */
- 0x00000600, /* dor */
- 0x00000604, /* dorassign */
- 0x00000640, /* entergiven */
- 0x00000200, /* leavegiven */
- 0x00000640, /* enterwhen */
- 0x00000200, /* leavewhen */
- 0x00000000, /* break */
- 0x00000000, /* continue */
- 0x00000404, /* smartmatch */
- 0x0005c815, /* say */
+ 0x00000600, /* once */
0x00000000, /* custom */
};
#endif
+#endif /* !PERL_GLOBAL_STRUCT_INIT */
+
END_EXTERN_C
-#endif /* !PERL_GLOBAL_STRUCT_INIT */
/* ex: set ro: */