This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'release-5.21.2' into blead
[perl5.git]
/
opcode.h
diff --git
a/opcode.h
b/opcode.h
index
aeee45c
..
fbc3fe1
100644
(file)
--- a/
opcode.h
+++ b/
opcode.h
@@
-280,6
+280,7
@@
EXTCONST char* const PL_op_name[] = {
"aelemfast_lex",
"aelem",
"aslice",
"aelemfast_lex",
"aelem",
"aslice",
+ "kvaslice",
"aeach",
"akeys",
"avalues",
"aeach",
"akeys",
"avalues",
@@
-291,6
+292,7
@@
EXTCONST char* const PL_op_name[] = {
"rv2hv",
"helem",
"hslice",
"rv2hv",
"helem",
"hslice",
+ "kvhslice",
"unpack",
"pack",
"split",
"unpack",
"pack",
"split",
@@
-521,6
+523,10
@@
EXTCONST char* const PL_op_name[] = {
"coreargs",
"runcv",
"fc",
"coreargs",
"runcv",
"fc",
+ "padcv",
+ "introcv",
+ "clonecv",
+ "padrange",
"freed",
};
#endif
"freed",
};
#endif
@@
-661,6
+667,7
@@
EXTCONST char* const PL_op_desc[] = {
"constant lexical array element",
"array element",
"array slice",
"constant lexical array element",
"array element",
"array slice",
+ "index/value array slice",
"each on array",
"keys on array",
"values on array",
"each on array",
"keys on array",
"values on array",
@@
-672,6
+679,7
@@
EXTCONST char* const PL_op_desc[] = {
"hash dereference",
"hash element",
"hash slice",
"hash dereference",
"hash element",
"hash slice",
+ "key/value hash slice",
"unpack",
"pack",
"split",
"unpack",
"pack",
"split",
@@
-902,6
+910,10
@@
EXTCONST char* const PL_op_desc[] = {
"CORE:: subroutine",
"__SUB__",
"fc",
"CORE:: subroutine",
"__SUB__",
"fc",
+ "private subroutine",
+ "private subroutine",
+ "private subroutine",
+ "list of private variables",
"freed op",
};
#endif
"freed op",
};
#endif
@@
-1056,6
+1068,7
@@
EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
Perl_pp_aelemfast_lex, /* implemented by Perl_pp_aelemfast */
Perl_pp_aelem,
Perl_pp_aslice,
Perl_pp_aelemfast_lex, /* implemented by Perl_pp_aelemfast */
Perl_pp_aelem,
Perl_pp_aslice,
+ Perl_pp_kvaslice,
Perl_pp_aeach,
Perl_pp_akeys,
Perl_pp_avalues, /* implemented by Perl_pp_akeys */
Perl_pp_aeach,
Perl_pp_akeys,
Perl_pp_avalues, /* implemented by Perl_pp_akeys */
@@
-1067,6
+1080,7
@@
EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
Perl_pp_rv2hv, /* implemented by Perl_pp_rv2av */
Perl_pp_helem,
Perl_pp_hslice,
Perl_pp_rv2hv, /* implemented by Perl_pp_rv2av */
Perl_pp_helem,
Perl_pp_hslice,
+ Perl_pp_kvhslice,
Perl_pp_unpack,
Perl_pp_pack,
Perl_pp_split,
Perl_pp_unpack,
Perl_pp_pack,
Perl_pp_split,
@@
-1297,6
+1311,10
@@
EXT Perl_ppaddr_t PL_ppaddr[] /* or perlvars.h */
Perl_pp_coreargs,
Perl_pp_runcv,
Perl_pp_fc,
Perl_pp_coreargs,
Perl_pp_runcv,
Perl_pp_fc,
+ Perl_pp_padcv,
+ Perl_pp_introcv,
+ Perl_pp_clonecv,
+ Perl_pp_padrange,
}
#endif
#ifdef PERL_PPADDR_INITED
}
#endif
#ifdef PERL_PPADDR_INITED
@@
-1339,7
+1357,7
@@
EXT Perl_check_t PL_check[] /* or perlvars.h */
Perl_ck_null, /* srefgen */
Perl_ck_fun, /* ref */
Perl_ck_fun, /* bless */
Perl_ck_null, /* srefgen */
Perl_ck_fun, /* ref */
Perl_ck_fun, /* bless */
- Perl_ck_
open,
/* backtick */
+ Perl_ck_
backtick,
/* backtick */
Perl_ck_glob, /* glob */
Perl_ck_readline, /* readline */
Perl_ck_null, /* rcatline */
Perl_ck_glob, /* glob */
Perl_ck_readline, /* readline */
Perl_ck_null, /* rcatline */
@@
-1447,6
+1465,7
@@
EXT Perl_check_t PL_check[] /* or perlvars.h */
Perl_ck_null, /* aelemfast_lex */
Perl_ck_null, /* aelem */
Perl_ck_null, /* aslice */
Perl_ck_null, /* aelemfast_lex */
Perl_ck_null, /* aelem */
Perl_ck_null, /* aslice */
+ Perl_ck_null, /* kvaslice */
Perl_ck_each, /* aeach */
Perl_ck_each, /* akeys */
Perl_ck_each, /* avalues */
Perl_ck_each, /* aeach */
Perl_ck_each, /* akeys */
Perl_ck_each, /* avalues */
@@
-1458,6
+1477,7
@@
EXT Perl_check_t PL_check[] /* or perlvars.h */
Perl_ck_rvconst, /* rv2hv */
Perl_ck_null, /* helem */
Perl_ck_null, /* hslice */
Perl_ck_rvconst, /* rv2hv */
Perl_ck_null, /* helem */
Perl_ck_null, /* hslice */
+ Perl_ck_null, /* kvhslice */
Perl_ck_fun, /* unpack */
Perl_ck_fun, /* pack */
Perl_ck_split, /* split */
Perl_ck_fun, /* unpack */
Perl_ck_fun, /* pack */
Perl_ck_split, /* split */
@@
-1494,7
+1514,7
@@
EXT Perl_check_t PL_check[] /* or perlvars.h */
Perl_ck_null, /* leavesublv */
Perl_ck_fun, /* caller */
Perl_ck_fun, /* warn */
Perl_ck_null, /* leavesublv */
Perl_ck_fun, /* caller */
Perl_ck_fun, /* warn */
- Perl_ck_
die
, /* die */
+ Perl_ck_
fun
, /* die */
Perl_ck_fun, /* reset */
Perl_ck_null, /* lineseq */
Perl_ck_null, /* nextstate */
Perl_ck_fun, /* reset */
Perl_ck_null, /* lineseq */
Perl_ck_null, /* nextstate */
@@
-1513,7
+1533,7
@@
EXT Perl_check_t PL_check[] /* or perlvars.h */
Perl_ck_null, /* redo */
Perl_ck_null, /* dump */
Perl_ck_null, /* goto */
Perl_ck_null, /* redo */
Perl_ck_null, /* dump */
Perl_ck_null, /* goto */
- Perl_ck_
exit,
/* exit */
+ Perl_ck_
fun,
/* exit */
Perl_ck_null, /* method_named */
Perl_ck_null, /* entergiven */
Perl_ck_null, /* leavegiven */
Perl_ck_null, /* method_named */
Perl_ck_null, /* entergiven */
Perl_ck_null, /* leavegiven */
@@
-1688,6
+1708,10
@@
EXT Perl_check_t PL_check[] /* or perlvars.h */
Perl_ck_null, /* coreargs */
Perl_ck_null, /* runcv */
Perl_ck_fun, /* fc */
Perl_ck_null, /* coreargs */
Perl_ck_null, /* runcv */
Perl_ck_fun, /* fc */
+ Perl_ck_null, /* padcv */
+ Perl_ck_null, /* introcv */
+ Perl_ck_null, /* clonecv */
+ Perl_ck_null, /* padrange */
}
#endif
#ifdef PERL_CHECK_INITED
}
#endif
#ifdef PERL_CHECK_INITED
@@
-1832,6
+1856,7
@@
EXTCONST U32 PL_opargs[] = {
0x00013040, /* aelemfast_lex */
0x00013204, /* aelem */
0x00023401, /* aslice */
0x00013040, /* aelemfast_lex */
0x00013204, /* aelem */
0x00023401, /* aslice */
+ 0x00023401, /* kvaslice */
0x00003b00, /* aeach */
0x00003b08, /* akeys */
0x00003b08, /* avalues */
0x00003b00, /* aeach */
0x00003b08, /* akeys */
0x00003b08, /* avalues */
@@
-1840,9
+1865,10
@@
EXTCONST U32 PL_opargs[] = {
0x00004b08, /* keys */
0x00001b00, /* delete */
0x00001b04, /* exists */
0x00004b08, /* keys */
0x00001b00, /* delete */
0x00001b04, /* exists */
- 0x0000014
8
, /* rv2hv */
+ 0x0000014
0
, /* rv2hv */
0x00014204, /* helem */
0x00024401, /* hslice */
0x00014204, /* helem */
0x00024401, /* hslice */
+ 0x00024401, /* kvhslice */
0x00091480, /* unpack */
0x0002140f, /* pack */
0x00111408, /* split */
0x00091480, /* unpack */
0x0002140f, /* pack */
0x00111408, /* split */
@@
-2073,6
+2099,10
@@
EXTCONST U32 PL_opargs[] = {
0x00000600, /* coreargs */
0x00000004, /* runcv */
0x00009b8e, /* fc */
0x00000600, /* coreargs */
0x00000004, /* runcv */
0x00009b8e, /* fc */
+ 0x00000040, /* padcv */
+ 0x00000040, /* introcv */
+ 0x00000040, /* clonecv */
+ 0x00000040, /* padrange */
};
#endif
};
#endif