X-Git-Url: https://perl5.git.perl.org/perl5.git/blobdiff_plain/1830b3d9c87f8b1473b0a80759846f7a5dccae5a..65aad273380da9c83f76e24d48ee5df7a03ee888:/opcode.h diff --git a/opcode.h b/opcode.h index 122c67f..de1a42d 100644 --- a/opcode.h +++ b/opcode.h @@ -2,26 +2,144 @@ * * opcode.h * - * Copyright (C) 1993, 1994, 1995, 1996, 1997, 1998, 1999, 2000, - * 2001, 2002, 2003, 2004, 2005, 2006, 2007 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. * * !!!!!!! DO NOT EDIT THIS FILE !!!!!!! - * This file is built by regen/opcode.pl from its data. Any changes made - * here will be lost! + * This file is built by regen/opcode.pl from its data. + * Any changes made here will be lost! */ #ifndef PERL_GLOBAL_STRUCT_INIT +#define Perl_pp_scalar Perl_pp_null +#define Perl_pp_padany Perl_unimplemented_op +#define Perl_pp_regcmaybe Perl_pp_null +#define Perl_pp_transr Perl_pp_trans +#define Perl_pp_chomp Perl_pp_chop +#define Perl_pp_schomp Perl_pp_schop #define Perl_pp_i_preinc Perl_pp_preinc #define Perl_pp_i_predec Perl_pp_predec #define Perl_pp_i_postinc Perl_pp_postinc #define Perl_pp_i_postdec Perl_pp_postdec - -PERL_PPDEF(Perl_unimplemented_op) - +#define Perl_pp_slt Perl_pp_sle +#define Perl_pp_sgt Perl_pp_sle +#define Perl_pp_sge Perl_pp_sle +#define Perl_pp_bit_xor Perl_pp_bit_or +#define Perl_pp_cos Perl_pp_sin +#define Perl_pp_exp Perl_pp_sin +#define Perl_pp_log Perl_pp_sin +#define Perl_pp_sqrt Perl_pp_sin +#define Perl_pp_hex Perl_pp_oct +#define Perl_pp_rindex Perl_pp_index +#define Perl_pp_lcfirst Perl_pp_ucfirst +#define Perl_pp_aelemfast_lex Perl_pp_aelemfast +#define Perl_pp_avalues Perl_pp_akeys +#define Perl_pp_values Perl_do_kv +#define Perl_pp_keys Perl_do_kv +#define Perl_pp_rv2hv Perl_pp_rv2av +#define Perl_pp_pop Perl_pp_shift +#define Perl_pp_mapstart Perl_unimplemented_op +#define Perl_pp_dor Perl_pp_defined +#define Perl_pp_andassign Perl_pp_and +#define Perl_pp_orassign Perl_pp_or +#define Perl_pp_dorassign Perl_pp_defined +#define Perl_pp_lineseq Perl_pp_null +#define Perl_pp_scope Perl_pp_null +#define Perl_pp_dump Perl_pp_goto +#define Perl_pp_dbmclose Perl_pp_untie +#define Perl_pp_read Perl_pp_sysread +#define Perl_pp_say Perl_pp_print +#define Perl_pp_seek Perl_pp_sysseek +#define Perl_pp_fcntl Perl_pp_ioctl +#ifdef HAS_SOCKET +#define Perl_pp_send Perl_pp_syswrite +#define Perl_pp_recv Perl_pp_sysread +#else +#define Perl_pp_send Perl_unimplemented_op +#define Perl_pp_recv Perl_unimplemented_op +#define Perl_pp_socket Perl_unimplemented_op +#endif +#ifdef HAS_SOCKET +#define Perl_pp_connect Perl_pp_bind +#define Perl_pp_gsockopt Perl_pp_ssockopt +#define Perl_pp_getsockname Perl_pp_getpeername +#else +#define Perl_pp_bind Perl_unimplemented_op +#define Perl_pp_connect Perl_unimplemented_op +#define Perl_pp_listen Perl_unimplemented_op +#define Perl_pp_accept Perl_unimplemented_op +#define Perl_pp_shutdown Perl_unimplemented_op +#define Perl_pp_gsockopt Perl_unimplemented_op +#define Perl_pp_ssockopt Perl_unimplemented_op +#define Perl_pp_getsockname Perl_unimplemented_op +#define Perl_pp_getpeername Perl_unimplemented_op +#endif +#define Perl_pp_lstat Perl_pp_stat +#define Perl_pp_ftrwrite Perl_pp_ftrread +#define Perl_pp_ftrexec Perl_pp_ftrread +#define Perl_pp_fteread Perl_pp_ftrread +#define Perl_pp_ftewrite Perl_pp_ftrread +#define Perl_pp_fteexec Perl_pp_ftrread +#define Perl_pp_ftsize Perl_pp_ftis +#define Perl_pp_ftmtime Perl_pp_ftis +#define Perl_pp_ftatime Perl_pp_ftis +#define Perl_pp_ftctime Perl_pp_ftis +#define Perl_pp_fteowned Perl_pp_ftrowned +#define Perl_pp_ftzero Perl_pp_ftrowned +#define Perl_pp_ftsock Perl_pp_ftrowned +#define Perl_pp_ftchr Perl_pp_ftrowned +#define Perl_pp_ftblk Perl_pp_ftrowned +#define Perl_pp_ftfile Perl_pp_ftrowned +#define Perl_pp_ftdir Perl_pp_ftrowned +#define Perl_pp_ftpipe Perl_pp_ftrowned +#define Perl_pp_ftsuid Perl_pp_ftrowned +#define Perl_pp_ftsgid Perl_pp_ftrowned +#define Perl_pp_ftsvtx Perl_pp_ftrowned +#define Perl_pp_ftbinary Perl_pp_fttext +#define Perl_pp_unlink Perl_pp_chown +#define Perl_pp_chmod Perl_pp_chown +#define Perl_pp_utime Perl_pp_chown +#define Perl_pp_symlink Perl_pp_link +#define Perl_pp_kill Perl_pp_chown +#define Perl_pp_localtime Perl_pp_gmtime +#define Perl_pp_shmget Perl_pp_semget +#define Perl_pp_shmctl Perl_pp_semctl +#define Perl_pp_shmread Perl_pp_shmwrite +#define Perl_pp_msgget Perl_pp_semget +#define Perl_pp_msgctl Perl_pp_semctl +#define Perl_pp_msgsnd Perl_pp_shmwrite +#define Perl_pp_msgrcv Perl_pp_shmwrite +#define Perl_pp_semop Perl_pp_shmwrite +#define Perl_pp_dofile Perl_pp_require +#define Perl_pp_ghbyname Perl_pp_ghostent +#define Perl_pp_ghbyaddr Perl_pp_ghostent +#define Perl_pp_gnbyname Perl_pp_gnetent +#define Perl_pp_gnbyaddr Perl_pp_gnetent +#define Perl_pp_gpbyname Perl_pp_gprotoent +#define Perl_pp_gpbynumber Perl_pp_gprotoent +#define Perl_pp_gsbyname Perl_pp_gservent +#define Perl_pp_gsbyport Perl_pp_gservent +#define Perl_pp_snetent Perl_pp_shostent +#define Perl_pp_sprotoent Perl_pp_shostent +#define Perl_pp_sservent Perl_pp_shostent +#define Perl_pp_enetent Perl_pp_ehostent +#define Perl_pp_eprotoent Perl_pp_ehostent +#define Perl_pp_eservent Perl_pp_ehostent +#define Perl_pp_gpwnam Perl_pp_gpwent +#define Perl_pp_gpwuid Perl_pp_gpwent +#define Perl_pp_spwent Perl_pp_ehostent +#define Perl_pp_epwent Perl_pp_ehostent +#define Perl_pp_ggrnam Perl_pp_ggrent +#define Perl_pp_ggrgid Perl_pp_ggrent +#define Perl_pp_sgrent Perl_pp_ehostent +#define Perl_pp_egrent Perl_pp_ehostent +#define Perl_pp_custom Perl_unimplemented_op +#define Perl_pp_reach Perl_pp_rkeys +#define Perl_pp_rvalues Perl_pp_rkeys START_EXTERN_C #ifndef DOINIT @@ -64,6 +182,7 @@ EXTCONST char* const PL_op_name[] = { "subst", "substcont", "trans", + "transr", "sassign", "aassign", "chop", @@ -156,6 +275,7 @@ EXTCONST char* const PL_op_name[] = { "quotemeta", "rv2av", "aelemfast", + "aelemfast_lex", "aelem", "aslice", "aeach", @@ -397,7 +517,7 @@ EXTCONST char* const PL_op_name[] = { "reach", "rkeys", "rvalues", - "transr", + "coreargs", }; #endif @@ -441,6 +561,7 @@ EXTCONST char* const PL_op_desc[] = { "substitution (s///)", "substitution iterator", "transliteration (tr///)", + "transliteration (tr///)", "scalar assignment", "list assignment", "chop", @@ -533,6 +654,7 @@ EXTCONST char* const PL_op_desc[] = { "quotemeta", "array dereference", "constant array element", + "constant lexical array element", "array element", "array slice", "each on array", @@ -774,7 +896,7 @@ EXTCONST char* const PL_op_desc[] = { "each on reference", "keys on reference", "values on reference", - "transliteration (tr///)", + "CORE:: subroutine", }; #endif @@ -798,7 +920,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ = { Perl_pp_null, Perl_pp_stub, - Perl_pp_null, /* Perl_pp_scalar */ + Perl_pp_scalar, /* implemented by Perl_pp_null */ Perl_pp_pushmark, Perl_pp_wantarray, Perl_pp_const, @@ -808,7 +930,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_padsv, Perl_pp_padav, Perl_pp_padhv, - Perl_unimplemented_op, /* Perl_pp_padany */ + Perl_pp_padany, /* implemented by Perl_unimplemented_op */ Perl_pp_pushre, Perl_pp_rv2gv, Perl_pp_rv2sv, @@ -824,32 +946,33 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_glob, Perl_pp_readline, Perl_pp_rcatline, - Perl_pp_null, /* Perl_pp_regcmaybe */ + Perl_pp_regcmaybe, /* implemented by Perl_pp_null */ Perl_pp_regcreset, Perl_pp_regcomp, Perl_pp_match, Perl_pp_qr, Perl_pp_subst, Perl_pp_substcont, - Perl_pp_trans, /* Perl_pp_trans */ + Perl_pp_trans, + Perl_pp_transr, /* implemented by Perl_pp_trans */ Perl_pp_sassign, Perl_pp_aassign, Perl_pp_chop, Perl_pp_schop, - Perl_pp_chomp, - Perl_pp_schomp, + Perl_pp_chomp, /* implemented by Perl_pp_chop */ + Perl_pp_schomp, /* implemented by Perl_pp_schop */ Perl_pp_defined, Perl_pp_undef, Perl_pp_study, Perl_pp_pos, Perl_pp_preinc, - Perl_pp_i_preinc, + Perl_pp_i_preinc, /* implemented by Perl_pp_preinc */ Perl_pp_predec, - Perl_pp_i_predec, + Perl_pp_i_predec, /* implemented by Perl_pp_predec */ Perl_pp_postinc, - Perl_pp_i_postinc, + Perl_pp_i_postinc, /* implemented by Perl_pp_postinc */ Perl_pp_postdec, - Perl_pp_i_postdec, + Perl_pp_i_postdec, /* implemented by Perl_pp_postdec */ Perl_pp_pow, Perl_pp_multiply, Perl_pp_i_multiply, @@ -880,15 +1003,15 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_i_ne, Perl_pp_ncmp, Perl_pp_i_ncmp, - Perl_pp_sle, /* Perl_pp_slt */ - Perl_pp_sle, /* Perl_pp_sgt */ + Perl_pp_slt, /* implemented by Perl_pp_sle */ + Perl_pp_sgt, /* implemented by Perl_pp_sle */ Perl_pp_sle, - Perl_pp_sle, /* Perl_pp_sge */ + Perl_pp_sge, /* implemented by Perl_pp_sle */ Perl_pp_seq, Perl_pp_sne, Perl_pp_scmp, Perl_pp_bit_and, - Perl_pp_bit_or, /* Perl_pp_bit_xor */ + Perl_pp_bit_xor, /* implemented by Perl_pp_bit_or */ Perl_pp_bit_or, Perl_pp_negate, Perl_pp_i_negate, @@ -897,44 +1020,45 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_smartmatch, Perl_pp_atan2, Perl_pp_sin, - Perl_pp_sin, /* Perl_pp_cos */ + Perl_pp_cos, /* implemented by Perl_pp_sin */ Perl_pp_rand, Perl_pp_srand, - Perl_pp_sin, /* Perl_pp_exp */ - Perl_pp_sin, /* Perl_pp_log */ - Perl_pp_sin, /* Perl_pp_sqrt */ + Perl_pp_exp, /* implemented by Perl_pp_sin */ + Perl_pp_log, /* implemented by Perl_pp_sin */ + Perl_pp_sqrt, /* implemented by Perl_pp_sin */ Perl_pp_int, - Perl_pp_oct, /* Perl_pp_hex */ + Perl_pp_hex, /* implemented by Perl_pp_oct */ Perl_pp_oct, Perl_pp_abs, Perl_pp_length, Perl_pp_substr, Perl_pp_vec, Perl_pp_index, - Perl_pp_index, /* Perl_pp_rindex */ + Perl_pp_rindex, /* implemented by Perl_pp_index */ Perl_pp_sprintf, Perl_pp_formline, Perl_pp_ord, Perl_pp_chr, Perl_pp_crypt, Perl_pp_ucfirst, - Perl_pp_ucfirst, /* Perl_pp_lcfirst */ + Perl_pp_lcfirst, /* implemented by Perl_pp_ucfirst */ Perl_pp_uc, Perl_pp_lc, Perl_pp_quotemeta, Perl_pp_rv2av, Perl_pp_aelemfast, + Perl_pp_aelemfast_lex, /* implemented by Perl_pp_aelemfast */ Perl_pp_aelem, Perl_pp_aslice, Perl_pp_aeach, Perl_pp_akeys, - Perl_pp_akeys, /* Perl_pp_avalues */ + Perl_pp_avalues, /* implemented by Perl_pp_akeys */ Perl_pp_each, - Perl_do_kv, /* Perl_pp_values */ - Perl_do_kv, /* Perl_pp_keys */ + Perl_pp_values, /* implemented by Perl_do_kv */ + Perl_pp_keys, /* implemented by Perl_do_kv */ Perl_pp_delete, Perl_pp_exists, - Perl_pp_rv2av, /* Perl_pp_rv2hv */ + Perl_pp_rv2hv, /* implemented by Perl_pp_rv2av */ Perl_pp_helem, Perl_pp_hslice, Perl_pp_boolkeys, @@ -948,14 +1072,14 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_anonhash, Perl_pp_splice, Perl_pp_push, - Perl_pp_shift, /* Perl_pp_pop */ + Perl_pp_pop, /* implemented by Perl_pp_shift */ Perl_pp_shift, Perl_pp_unshift, Perl_pp_sort, Perl_pp_reverse, Perl_pp_grepstart, Perl_pp_grepwhile, - Perl_unimplemented_op, /* Perl_pp_mapstart */ + Perl_pp_mapstart, /* implemented by Perl_unimplemented_op */ Perl_pp_mapwhile, Perl_pp_range, Perl_pp_flip, @@ -963,11 +1087,11 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_and, Perl_pp_or, Perl_pp_xor, - Perl_pp_defined, /* Perl_pp_dor */ + Perl_pp_dor, /* implemented by Perl_pp_defined */ Perl_pp_cond_expr, - Perl_pp_and, /* Perl_pp_andassign */ - Perl_pp_or, /* Perl_pp_orassign */ - Perl_pp_defined, /* Perl_pp_dorassign */ + Perl_pp_andassign, /* implemented by Perl_pp_and */ + Perl_pp_orassign, /* implemented by Perl_pp_or */ + Perl_pp_dorassign, /* implemented by Perl_pp_defined */ Perl_pp_method, Perl_pp_entersub, Perl_pp_leavesub, @@ -976,13 +1100,13 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_warn, Perl_pp_die, Perl_pp_reset, - Perl_pp_null, /* Perl_pp_lineseq */ + Perl_pp_lineseq, /* implemented by Perl_pp_null */ Perl_pp_nextstate, Perl_pp_dbstate, Perl_pp_unstack, Perl_pp_enter, Perl_pp_leave, - Perl_pp_null, /* Perl_pp_scope */ + Perl_pp_scope, /* implemented by Perl_pp_null */ Perl_pp_enteriter, Perl_pp_iter, Perl_pp_enterloop, @@ -991,7 +1115,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_last, Perl_pp_next, Perl_pp_redo, - Perl_pp_goto, /* Perl_pp_dump */ + Perl_pp_dump, /* implemented by Perl_pp_goto */ Perl_pp_goto, Perl_pp_exit, Perl_pp_method_named, @@ -1011,78 +1135,78 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_untie, Perl_pp_tied, Perl_pp_dbmopen, - Perl_pp_untie, /* Perl_pp_dbmclose */ + Perl_pp_dbmclose, /* implemented by Perl_pp_untie */ Perl_pp_sselect, Perl_pp_select, Perl_pp_getc, - Perl_pp_sysread, /* Perl_pp_read */ + Perl_pp_read, /* implemented by Perl_pp_sysread */ Perl_pp_enterwrite, Perl_pp_leavewrite, Perl_pp_prtf, Perl_pp_print, - Perl_pp_print, /* Perl_pp_say */ + Perl_pp_say, /* implemented by Perl_pp_print */ Perl_pp_sysopen, Perl_pp_sysseek, Perl_pp_sysread, - Perl_pp_send, /* Perl_pp_syswrite */ + Perl_pp_syswrite, Perl_pp_eof, Perl_pp_tell, - Perl_pp_sysseek, /* Perl_pp_seek */ + Perl_pp_seek, /* implemented by Perl_pp_sysseek */ Perl_pp_truncate, - Perl_pp_ioctl, /* Perl_pp_fcntl */ + Perl_pp_fcntl, /* implemented by Perl_pp_ioctl */ Perl_pp_ioctl, Perl_pp_flock, - Perl_pp_send, - Perl_pp_sysread, /* Perl_pp_recv */ + Perl_pp_send, /* implemented by Perl_pp_syswrite */ + Perl_pp_recv, /* implemented by Perl_pp_sysread */ Perl_pp_socket, Perl_pp_sockpair, Perl_pp_bind, - Perl_pp_connect, + Perl_pp_connect, /* implemented by Perl_pp_bind */ Perl_pp_listen, Perl_pp_accept, Perl_pp_shutdown, - Perl_pp_ssockopt, /* Perl_pp_gsockopt */ + Perl_pp_gsockopt, /* implemented by Perl_pp_ssockopt */ Perl_pp_ssockopt, - Perl_pp_getpeername, /* Perl_pp_getsockname */ + Perl_pp_getsockname, /* implemented by Perl_pp_getpeername */ Perl_pp_getpeername, - Perl_pp_stat, /* Perl_pp_lstat */ + Perl_pp_lstat, /* implemented by Perl_pp_stat */ Perl_pp_stat, Perl_pp_ftrread, - Perl_pp_ftrread, /* Perl_pp_ftrwrite */ - Perl_pp_ftrread, /* Perl_pp_ftrexec */ - Perl_pp_ftrread, /* Perl_pp_fteread */ - Perl_pp_ftrread, /* Perl_pp_ftewrite */ - Perl_pp_ftrread, /* Perl_pp_fteexec */ + Perl_pp_ftrwrite, /* implemented by Perl_pp_ftrread */ + Perl_pp_ftrexec, /* implemented by Perl_pp_ftrread */ + Perl_pp_fteread, /* implemented by Perl_pp_ftrread */ + Perl_pp_ftewrite, /* implemented by Perl_pp_ftrread */ + Perl_pp_fteexec, /* implemented by Perl_pp_ftrread */ Perl_pp_ftis, - Perl_pp_ftis, /* Perl_pp_ftsize */ - Perl_pp_ftis, /* Perl_pp_ftmtime */ - Perl_pp_ftis, /* Perl_pp_ftatime */ - Perl_pp_ftis, /* Perl_pp_ftctime */ + Perl_pp_ftsize, /* implemented by Perl_pp_ftis */ + Perl_pp_ftmtime, /* implemented by Perl_pp_ftis */ + Perl_pp_ftatime, /* implemented by Perl_pp_ftis */ + Perl_pp_ftctime, /* implemented by Perl_pp_ftis */ Perl_pp_ftrowned, - Perl_pp_ftrowned, /* Perl_pp_fteowned */ - Perl_pp_ftrowned, /* Perl_pp_ftzero */ - Perl_pp_ftrowned, /* Perl_pp_ftsock */ - Perl_pp_ftrowned, /* Perl_pp_ftchr */ - Perl_pp_ftrowned, /* Perl_pp_ftblk */ - Perl_pp_ftrowned, /* Perl_pp_ftfile */ - Perl_pp_ftrowned, /* Perl_pp_ftdir */ - Perl_pp_ftrowned, /* Perl_pp_ftpipe */ - Perl_pp_ftrowned, /* Perl_pp_ftsuid */ - Perl_pp_ftrowned, /* Perl_pp_ftsgid */ - Perl_pp_ftrowned, /* Perl_pp_ftsvtx */ + Perl_pp_fteowned, /* implemented by Perl_pp_ftrowned */ + Perl_pp_ftzero, /* implemented by Perl_pp_ftrowned */ + Perl_pp_ftsock, /* implemented by Perl_pp_ftrowned */ + Perl_pp_ftchr, /* implemented by Perl_pp_ftrowned */ + Perl_pp_ftblk, /* implemented by Perl_pp_ftrowned */ + Perl_pp_ftfile, /* implemented by Perl_pp_ftrowned */ + Perl_pp_ftdir, /* implemented by Perl_pp_ftrowned */ + Perl_pp_ftpipe, /* implemented by Perl_pp_ftrowned */ + Perl_pp_ftsuid, /* implemented by Perl_pp_ftrowned */ + Perl_pp_ftsgid, /* implemented by Perl_pp_ftrowned */ + Perl_pp_ftsvtx, /* implemented by Perl_pp_ftrowned */ Perl_pp_ftlink, Perl_pp_fttty, Perl_pp_fttext, - Perl_pp_fttext, /* Perl_pp_ftbinary */ + Perl_pp_ftbinary, /* implemented by Perl_pp_fttext */ Perl_pp_chdir, Perl_pp_chown, Perl_pp_chroot, - Perl_pp_chown, /* Perl_pp_unlink */ - Perl_pp_chown, /* Perl_pp_chmod */ - Perl_pp_chown, /* Perl_pp_utime */ + Perl_pp_unlink, /* implemented by Perl_pp_chown */ + Perl_pp_chmod, /* implemented by Perl_pp_chown */ + Perl_pp_utime, /* implemented by Perl_pp_chown */ Perl_pp_rename, Perl_pp_link, - Perl_pp_link, /* Perl_pp_symlink */ + Perl_pp_symlink, /* implemented by Perl_pp_link */ Perl_pp_readlink, Perl_pp_mkdir, Perl_pp_rmdir, @@ -1097,7 +1221,7 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_waitpid, Perl_pp_system, Perl_pp_exec, - Perl_pp_chown, /* Perl_pp_kill */ + Perl_pp_kill, /* implemented by Perl_pp_chown */ Perl_pp_getppid, Perl_pp_getpgrp, Perl_pp_setpgrp, @@ -1105,67 +1229,67 @@ EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */ Perl_pp_setpriority, Perl_pp_time, Perl_pp_tms, - Perl_pp_gmtime, /* Perl_pp_localtime */ + Perl_pp_localtime, /* implemented by Perl_pp_gmtime */ Perl_pp_gmtime, Perl_pp_alarm, Perl_pp_sleep, - Perl_pp_semget, /* Perl_pp_shmget */ - Perl_pp_semctl, /* Perl_pp_shmctl */ - Perl_pp_shmwrite, /* Perl_pp_shmread */ + Perl_pp_shmget, /* implemented by Perl_pp_semget */ + Perl_pp_shmctl, /* implemented by Perl_pp_semctl */ + Perl_pp_shmread, /* implemented by Perl_pp_shmwrite */ Perl_pp_shmwrite, - Perl_pp_semget, /* Perl_pp_msgget */ - Perl_pp_semctl, /* Perl_pp_msgctl */ - Perl_pp_shmwrite, /* Perl_pp_msgsnd */ - Perl_pp_shmwrite, /* Perl_pp_msgrcv */ - Perl_pp_shmwrite, /* Perl_pp_semop */ + Perl_pp_msgget, /* implemented by Perl_pp_semget */ + Perl_pp_msgctl, /* implemented by Perl_pp_semctl */ + Perl_pp_msgsnd, /* implemented by Perl_pp_shmwrite */ + Perl_pp_msgrcv, /* implemented by Perl_pp_shmwrite */ + Perl_pp_semop, /* implemented by Perl_pp_shmwrite */ Perl_pp_semget, Perl_pp_semctl, Perl_pp_require, - Perl_pp_require, /* Perl_pp_dofile */ + Perl_pp_dofile, /* implemented by Perl_pp_require */ Perl_pp_hintseval, Perl_pp_entereval, Perl_pp_leaveeval, Perl_pp_entertry, Perl_pp_leavetry, - Perl_pp_ghostent, /* Perl_pp_ghbyname */ - Perl_pp_ghostent, /* Perl_pp_ghbyaddr */ + Perl_pp_ghbyname, /* implemented by Perl_pp_ghostent */ + Perl_pp_ghbyaddr, /* implemented by Perl_pp_ghostent */ Perl_pp_ghostent, - Perl_pp_gnetent, /* Perl_pp_gnbyname */ - Perl_pp_gnetent, /* Perl_pp_gnbyaddr */ + Perl_pp_gnbyname, /* implemented by Perl_pp_gnetent */ + Perl_pp_gnbyaddr, /* implemented by Perl_pp_gnetent */ Perl_pp_gnetent, - Perl_pp_gprotoent, /* Perl_pp_gpbyname */ - Perl_pp_gprotoent, /* Perl_pp_gpbynumber */ + Perl_pp_gpbyname, /* implemented by Perl_pp_gprotoent */ + Perl_pp_gpbynumber, /* implemented by Perl_pp_gprotoent */ Perl_pp_gprotoent, - Perl_pp_gservent, /* Perl_pp_gsbyname */ - Perl_pp_gservent, /* Perl_pp_gsbyport */ + Perl_pp_gsbyname, /* implemented by Perl_pp_gservent */ + Perl_pp_gsbyport, /* implemented by Perl_pp_gservent */ Perl_pp_gservent, Perl_pp_shostent, - Perl_pp_snetent, - Perl_pp_sprotoent, - Perl_pp_sservent, + Perl_pp_snetent, /* implemented by Perl_pp_shostent */ + Perl_pp_sprotoent, /* implemented by Perl_pp_shostent */ + Perl_pp_sservent, /* implemented by Perl_pp_shostent */ Perl_pp_ehostent, - Perl_pp_enetent, - Perl_pp_eprotoent, - Perl_pp_eservent, - Perl_pp_gpwent, /* Perl_pp_gpwnam */ - Perl_pp_gpwent, /* Perl_pp_gpwuid */ + Perl_pp_enetent, /* implemented by Perl_pp_ehostent */ + Perl_pp_eprotoent, /* implemented by Perl_pp_ehostent */ + Perl_pp_eservent, /* implemented by Perl_pp_ehostent */ + Perl_pp_gpwnam, /* implemented by Perl_pp_gpwent */ + Perl_pp_gpwuid, /* implemented by Perl_pp_gpwent */ Perl_pp_gpwent, - Perl_pp_spwent, - Perl_pp_epwent, - Perl_pp_ggrent, /* Perl_pp_ggrnam */ - Perl_pp_ggrent, /* Perl_pp_ggrgid */ + Perl_pp_spwent, /* implemented by Perl_pp_ehostent */ + Perl_pp_epwent, /* implemented by Perl_pp_ehostent */ + Perl_pp_ggrnam, /* implemented by Perl_pp_ggrent */ + Perl_pp_ggrgid, /* implemented by Perl_pp_ggrent */ Perl_pp_ggrent, - Perl_pp_sgrent, - Perl_pp_egrent, + Perl_pp_sgrent, /* implemented by Perl_pp_ehostent */ + Perl_pp_egrent, /* implemented by Perl_pp_ehostent */ Perl_pp_getlogin, Perl_pp_syscall, Perl_pp_lock, Perl_pp_once, - Perl_unimplemented_op, /* Perl_pp_custom */ - Perl_pp_rkeys, /* Perl_pp_reach */ + Perl_pp_custom, /* implemented by Perl_unimplemented_op */ + Perl_pp_reach, /* implemented by Perl_pp_rkeys */ Perl_pp_rkeys, - Perl_pp_rkeys, /* Perl_pp_rvalues */ - Perl_pp_trans, /* Perl_pp_transr */ + Perl_pp_rvalues, /* implemented by Perl_pp_rkeys */ + Perl_pp_coreargs, } #endif #ifdef PERL_PPADDR_INITED @@ -1220,6 +1344,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_match, /* subst */ Perl_ck_null, /* substcont */ Perl_ck_match, /* trans */ + Perl_ck_match, /* transr */ Perl_ck_sassign, /* sassign */ Perl_ck_null, /* aassign */ Perl_ck_spair, /* chop */ @@ -1312,6 +1437,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_fun, /* quotemeta */ Perl_ck_rvconst, /* rv2av */ Perl_ck_null, /* aelemfast */ + Perl_ck_null, /* aelemfast_lex */ Perl_ck_null, /* aelem */ Perl_ck_null, /* aslice */ Perl_ck_each, /* aeach */ @@ -1326,7 +1452,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* helem */ Perl_ck_null, /* hslice */ Perl_ck_fun, /* boolkeys */ - Perl_ck_unpack, /* unpack */ + Perl_ck_fun, /* unpack */ Perl_ck_fun, /* pack */ Perl_ck_split, /* split */ Perl_ck_join, /* join */ @@ -1334,11 +1460,11 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_null, /* lslice */ Perl_ck_fun, /* anonlist */ Perl_ck_fun, /* anonhash */ - Perl_ck_push, /* splice */ - Perl_ck_push, /* push */ + Perl_ck_fun, /* splice */ + Perl_ck_fun, /* push */ Perl_ck_shift, /* pop */ Perl_ck_shift, /* shift */ - Perl_ck_push, /* unshift */ + Perl_ck_fun, /* unshift */ Perl_ck_sort, /* sort */ Perl_ck_fun, /* reverse */ Perl_ck_grep, /* grepstart */ @@ -1553,7 +1679,7 @@ EXT Perl_check_t PL_check[] /* or perlvars.h */ Perl_ck_each, /* reach */ Perl_ck_each, /* rkeys */ Perl_ck_each, /* rvalues */ - Perl_ck_match, /* transr */ + Perl_ck_null, /* coreargs */ } #endif #ifdef PERL_CHECK_INITED @@ -1602,6 +1728,7 @@ EXTCONST U32 PL_opargs[] = { 0x00001544, /* subst */ 0x00000344, /* substcont */ 0x00001804, /* trans */ + 0x00001804, /* transr */ 0x00000004, /* sassign */ 0x00022208, /* aassign */ 0x00002b0d, /* chop */ @@ -1694,6 +1821,7 @@ EXTCONST U32 PL_opargs[] = { 0x00009b8e, /* quotemeta */ 0x00000148, /* rv2av */ 0x00013604, /* aelemfast */ + 0x00013040, /* aelemfast_lex */ 0x00013204, /* aelem */ 0x00023401, /* aslice */ 0x00003b00, /* aeach */ @@ -1708,7 +1836,7 @@ EXTCONST U32 PL_opargs[] = { 0x00014204, /* helem */ 0x00024401, /* hslice */ 0x00004b00, /* boolkeys */ - 0x00091400, /* unpack */ + 0x00091480, /* unpack */ 0x0002140d, /* pack */ 0x00111408, /* split */ 0x0002140d, /* join */ @@ -1815,8 +1943,8 @@ EXTCONST U32 PL_opargs[] = { 0x01116404, /* ssockopt */ 0x00006b04, /* getsockname */ 0x00006b04, /* getpeername */ - 0x00006c80, /* lstat */ - 0x00006c80, /* stat */ + 0x0000ec80, /* lstat */ + 0x0000ec80, /* stat */ 0x00006c84, /* ftrread */ 0x00006c84, /* ftrwrite */ 0x00006c84, /* ftrexec */ @@ -1895,7 +2023,7 @@ EXTCONST U32 PL_opargs[] = { 0x00000604, /* hintseval */ 0x00001b40, /* entereval */ 0x00001100, /* leaveeval */ - 0x00000b40, /* entertry */ + 0x00000340, /* entertry */ 0x00000400, /* leavetry */ 0x00001b00, /* ghbyname */ 0x00011400, /* ghbyaddr */ @@ -1935,7 +2063,7 @@ EXTCONST U32 PL_opargs[] = { 0x00001b00, /* reach */ 0x00001b08, /* rkeys */ 0x00001b08, /* rvalues */ - 0x00001804, /* transr */ + 0x00000600, /* coreargs */ }; #endif