diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-27 15:31:52 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-07-27 15:31:52 +0000 |
commit | 3610fdac7fd1fba4c99a48ebfbeee10260813d0e (patch) | |
tree | 86836417a517c8cbf404a2c957e01fa7e61f78d7 | |
parent | 544ff7a7d95184b2fa52aea494e7e49ede73c1a7 (diff) | |
download | perl-3610fdac7fd1fba4c99a48ebfbeee10260813d0e.tar.gz |
Regenerated because of #20220.
p4raw-id: //depot/perl@20222
-rw-r--r-- | ext/B/B/Asmdata.pm | 226 | ||||
-rw-r--r-- | ext/ByteLoader/byterun.c | 424 | ||||
-rw-r--r-- | ext/ByteLoader/byterun.h | 230 |
3 files changed, 553 insertions, 327 deletions
diff --git a/ext/B/B/Asmdata.pm b/ext/B/B/Asmdata.pm index 83ec2ec63f..a5ff59e22a 100644 --- a/ext/B/B/Asmdata.pm +++ b/ext/B/B/Asmdata.pm @@ -44,107 +44,131 @@ $insn_data{sv_refcnt_add} = [16, \&PUT_I32, "GET_I32"]; $insn_data{sv_flags} = [17, \&PUT_U32, "GET_U32"]; $insn_data{xrv} = [18, \&PUT_svindex, "GET_svindex"]; $insn_data{xpv} = [19, \&PUT_none, "GET_none"]; -$insn_data{xiv32} = [20, \&PUT_I32, "GET_I32"]; -$insn_data{xiv64} = [21, \&PUT_IV64, "GET_IV64"]; -$insn_data{xnv} = [22, \&PUT_NV, "GET_NV"]; -$insn_data{xlv_targoff} = [23, \&PUT_U32, "GET_U32"]; -$insn_data{xlv_targlen} = [24, \&PUT_U32, "GET_U32"]; -$insn_data{xlv_targ} = [25, \&PUT_svindex, "GET_svindex"]; -$insn_data{xlv_type} = [26, \&PUT_U8, "GET_U8"]; -$insn_data{xbm_useful} = [27, \&PUT_I32, "GET_I32"]; -$insn_data{xbm_previous} = [28, \&PUT_U16, "GET_U16"]; -$insn_data{xbm_rare} = [29, \&PUT_U8, "GET_U8"]; -$insn_data{xfm_lines} = [30, \&PUT_IV, "GET_IV"]; -$insn_data{xio_lines} = [31, \&PUT_IV, "GET_IV"]; -$insn_data{xio_page} = [32, \&PUT_IV, "GET_IV"]; -$insn_data{xio_page_len} = [33, \&PUT_IV, "GET_IV"]; -$insn_data{xio_lines_left} = [34, \&PUT_IV, "GET_IV"]; -$insn_data{xio_top_name} = [36, \&PUT_pvcontents, "GET_pvcontents"]; -$insn_data{xio_top_gv} = [37, \&PUT_svindex, "GET_svindex"]; -$insn_data{xio_fmt_name} = [38, \&PUT_pvcontents, "GET_pvcontents"]; -$insn_data{xio_fmt_gv} = [39, \&PUT_svindex, "GET_svindex"]; -$insn_data{xio_bottom_name} = [40, \&PUT_pvcontents, "GET_pvcontents"]; -$insn_data{xio_bottom_gv} = [41, \&PUT_svindex, "GET_svindex"]; -$insn_data{xio_subprocess} = [42, \&PUT_U16, "GET_U16"]; -$insn_data{xio_type} = [43, \&PUT_U8, "GET_U8"]; -$insn_data{xio_flags} = [44, \&PUT_U8, "GET_U8"]; -$insn_data{xcv_stash} = [45, \&PUT_svindex, "GET_svindex"]; -$insn_data{xcv_start} = [46, \&PUT_opindex, "GET_opindex"]; -$insn_data{xcv_root} = [47, \&PUT_opindex, "GET_opindex"]; -$insn_data{xcv_gv} = [48, \&PUT_svindex, "GET_svindex"]; -$insn_data{xcv_file} = [49, \&PUT_pvindex, "GET_pvindex"]; -$insn_data{xcv_depth} = [50, \&PUT_I32, "GET_I32"]; -$insn_data{xcv_padlist} = [51, \&PUT_svindex, "GET_svindex"]; -$insn_data{xcv_outside} = [52, \&PUT_svindex, "GET_svindex"]; -$insn_data{xcv_outside_seq} = [53, \&PUT_U32, "GET_U32"]; -$insn_data{xcv_flags} = [54, \&PUT_U16, "GET_U16"]; -$insn_data{av_extend} = [55, \&PUT_I32, "GET_I32"]; -$insn_data{av_push} = [56, \&PUT_svindex, "GET_svindex"]; -$insn_data{xav_fill} = [57, \&PUT_I32, "GET_I32"]; -$insn_data{xav_max} = [58, \&PUT_I32, "GET_I32"]; -$insn_data{xav_flags} = [59, \&PUT_U8, "GET_U8"]; -$insn_data{xhv_riter} = [60, \&PUT_I32, "GET_I32"]; -$insn_data{xhv_name} = [61, \&PUT_pvcontents, "GET_pvcontents"]; -$insn_data{hv_store} = [62, \&PUT_svindex, "GET_svindex"]; -$insn_data{sv_magic} = [63, \&PUT_U8, "GET_U8"]; -$insn_data{mg_obj} = [64, \&PUT_svindex, "GET_svindex"]; -$insn_data{mg_private} = [65, \&PUT_U16, "GET_U16"]; -$insn_data{mg_flags} = [66, \&PUT_U8, "GET_U8"]; -$insn_data{mg_pv} = [67, \&PUT_pvcontents, "GET_pvcontents"]; -$insn_data{xmg_stash} = [68, \&PUT_svindex, "GET_svindex"]; -$insn_data{gv_fetchpv} = [69, \&PUT_strconst, "GET_strconst"]; -$insn_data{gv_stashpv} = [70, \&PUT_strconst, "GET_strconst"]; -$insn_data{gp_sv} = [71, \&PUT_svindex, "GET_svindex"]; -$insn_data{gp_refcnt} = [72, \&PUT_U32, "GET_U32"]; -$insn_data{gp_refcnt_add} = [73, \&PUT_I32, "GET_I32"]; -$insn_data{gp_av} = [74, \&PUT_svindex, "GET_svindex"]; -$insn_data{gp_hv} = [75, \&PUT_svindex, "GET_svindex"]; -$insn_data{gp_cv} = [76, \&PUT_svindex, "GET_svindex"]; -$insn_data{gp_file} = [77, \&PUT_pvindex, "GET_pvindex"]; -$insn_data{gp_io} = [78, \&PUT_svindex, "GET_svindex"]; -$insn_data{gp_form} = [79, \&PUT_svindex, "GET_svindex"]; -$insn_data{gp_cvgen} = [80, \&PUT_U32, "GET_U32"]; -$insn_data{gp_line} = [81, \&PUT_U32, "GET_U32"]; -$insn_data{gp_share} = [82, \&PUT_svindex, "GET_svindex"]; -$insn_data{xgv_flags} = [83, \&PUT_U8, "GET_U8"]; -$insn_data{op_next} = [84, \&PUT_opindex, "GET_opindex"]; -$insn_data{op_sibling} = [85, \&PUT_opindex, "GET_opindex"]; -$insn_data{op_ppaddr} = [86, \&PUT_strconst, "GET_strconst"]; -$insn_data{op_targ} = [87, \&PUT_U32, "GET_U32"]; -$insn_data{op_type} = [88, \&PUT_U16, "GET_U16"]; -$insn_data{op_seq} = [89, \&PUT_U16, "GET_U16"]; -$insn_data{op_flags} = [90, \&PUT_U8, "GET_U8"]; -$insn_data{op_private} = [91, \&PUT_U8, "GET_U8"]; -$insn_data{op_first} = [92, \&PUT_opindex, "GET_opindex"]; -$insn_data{op_last} = [93, \&PUT_opindex, "GET_opindex"]; -$insn_data{op_other} = [94, \&PUT_opindex, "GET_opindex"]; -$insn_data{op_pmreplroot} = [95, \&PUT_opindex, "GET_opindex"]; -$insn_data{op_pmreplrootgv} = [96, \&PUT_svindex, "GET_svindex"]; -$insn_data{op_pmreplstart} = [97, \&PUT_opindex, "GET_opindex"]; -$insn_data{op_pmnext} = [98, \&PUT_opindex, "GET_opindex"]; -$insn_data{pregcomp} = [99, \&PUT_pvcontents, "GET_pvcontents"]; -$insn_data{op_pmflags} = [100, \&PUT_U16, "GET_U16"]; -$insn_data{op_pmpermflags} = [101, \&PUT_U16, "GET_U16"]; -$insn_data{op_sv} = [102, \&PUT_svindex, "GET_svindex"]; -$insn_data{op_padix} = [103, \&PUT_U32, "GET_U32"]; -$insn_data{op_pv} = [104, \&PUT_pvcontents, "GET_pvcontents"]; -$insn_data{op_pv_tr} = [105, \&PUT_op_tr_array, "GET_op_tr_array"]; -$insn_data{op_redoop} = [106, \&PUT_opindex, "GET_opindex"]; -$insn_data{op_nextop} = [107, \&PUT_opindex, "GET_opindex"]; -$insn_data{op_lastop} = [108, \&PUT_opindex, "GET_opindex"]; -$insn_data{cop_label} = [109, \&PUT_pvindex, "GET_pvindex"]; -$insn_data{cop_stashpv} = [110, \&PUT_pvindex, "GET_pvindex"]; -$insn_data{cop_file} = [111, \&PUT_pvindex, "GET_pvindex"]; -$insn_data{cop_seq} = [112, \&PUT_U32, "GET_U32"]; -$insn_data{cop_arybase} = [113, \&PUT_I32, "GET_I32"]; -$insn_data{cop_line} = [114, \&PUT_U32, "GET_U32"]; -$insn_data{cop_warnings} = [115, \&PUT_svindex, "GET_svindex"]; -$insn_data{main_start} = [116, \&PUT_opindex, "GET_opindex"]; -$insn_data{main_root} = [117, \&PUT_opindex, "GET_opindex"]; -$insn_data{curpad} = [118, \&PUT_svindex, "GET_svindex"]; -$insn_data{push_begin} = [119, \&PUT_svindex, "GET_svindex"]; -$insn_data{push_init} = [120, \&PUT_svindex, "GET_svindex"]; -$insn_data{push_end} = [121, \&PUT_svindex, "GET_svindex"]; +$insn_data{xpv_cur} = [20, \&PUT_U32, "GET_U32"]; +$insn_data{xpv_len} = [21, \&PUT_U32, "GET_U32"]; +$insn_data{xiv} = [22, \&PUT_IV, "GET_IV"]; +$insn_data{xnv} = [23, \&PUT_NV, "GET_NV"]; +$insn_data{xlv_targoff} = [24, \&PUT_U32, "GET_U32"]; +$insn_data{xlv_targlen} = [25, \&PUT_U32, "GET_U32"]; +$insn_data{xlv_targ} = [26, \&PUT_svindex, "GET_svindex"]; +$insn_data{xlv_type} = [27, \&PUT_U8, "GET_U8"]; +$insn_data{xbm_useful} = [28, \&PUT_I32, "GET_I32"]; +$insn_data{xbm_previous} = [29, \&PUT_U16, "GET_U16"]; +$insn_data{xbm_rare} = [30, \&PUT_U8, "GET_U8"]; +$insn_data{xfm_lines} = [31, \&PUT_IV, "GET_IV"]; +$insn_data{xio_lines} = [32, \&PUT_IV, "GET_IV"]; +$insn_data{xio_page} = [33, \&PUT_IV, "GET_IV"]; +$insn_data{xio_page_len} = [34, \&PUT_IV, "GET_IV"]; +$insn_data{xio_lines_left} = [36, \&PUT_IV, "GET_IV"]; +$insn_data{xio_top_name} = [37, \&PUT_pvindex, "GET_pvindex"]; +$insn_data{xio_top_gv} = [38, \&PUT_svindex, "GET_svindex"]; +$insn_data{xio_fmt_name} = [39, \&PUT_pvindex, "GET_pvindex"]; +$insn_data{xio_fmt_gv} = [40, \&PUT_svindex, "GET_svindex"]; +$insn_data{xio_bottom_name} = [41, \&PUT_pvindex, "GET_pvindex"]; +$insn_data{xio_bottom_gv} = [42, \&PUT_svindex, "GET_svindex"]; +$insn_data{xio_subprocess} = [43, \&PUT_U16, "GET_U16"]; +$insn_data{xio_type} = [44, \&PUT_U8, "GET_U8"]; +$insn_data{xio_flags} = [45, \&PUT_U8, "GET_U8"]; +$insn_data{xcv_xsubany} = [46, \&PUT_svindex, "GET_svindex"]; +$insn_data{xcv_stash} = [47, \&PUT_svindex, "GET_svindex"]; +$insn_data{xcv_start} = [48, \&PUT_opindex, "GET_opindex"]; +$insn_data{xcv_root} = [49, \&PUT_opindex, "GET_opindex"]; +$insn_data{xcv_gv} = [50, \&PUT_svindex, "GET_svindex"]; +$insn_data{xcv_file} = [51, \&PUT_pvindex, "GET_pvindex"]; +$insn_data{xcv_depth} = [52, \&PUT_I32, "GET_I32"]; +$insn_data{xcv_padlist} = [53, \&PUT_svindex, "GET_svindex"]; +$insn_data{xcv_outside} = [54, \&PUT_svindex, "GET_svindex"]; +$insn_data{xcv_outside_seq} = [55, \&PUT_U32, "GET_U32"]; +$insn_data{xcv_flags} = [56, \&PUT_U16, "GET_U16"]; +$insn_data{av_extend} = [57, \&PUT_I32, "GET_I32"]; +$insn_data{av_pushx} = [58, \&PUT_svindex, "GET_svindex"]; +$insn_data{av_push} = [59, \&PUT_svindex, "GET_svindex"]; +$insn_data{xav_fill} = [60, \&PUT_I32, "GET_I32"]; +$insn_data{xav_max} = [61, \&PUT_I32, "GET_I32"]; +$insn_data{xav_flags} = [62, \&PUT_U8, "GET_U8"]; +$insn_data{xhv_riter} = [63, \&PUT_I32, "GET_I32"]; +$insn_data{xhv_name} = [64, \&PUT_pvindex, "GET_pvindex"]; +$insn_data{xhv_pmroot} = [65, \&PUT_opindex, "GET_opindex"]; +$insn_data{hv_store} = [66, \&PUT_svindex, "GET_svindex"]; +$insn_data{sv_magic} = [67, \&PUT_U8, "GET_U8"]; +$insn_data{mg_obj} = [68, \&PUT_svindex, "GET_svindex"]; +$insn_data{mg_private} = [69, \&PUT_U16, "GET_U16"]; +$insn_data{mg_flags} = [70, \&PUT_U8, "GET_U8"]; +$insn_data{mg_name} = [71, \&PUT_pvcontents, "GET_pvcontents"]; +$insn_data{mg_namex} = [72, \&PUT_svindex, "GET_svindex"]; +$insn_data{xmg_stash} = [73, \&PUT_svindex, "GET_svindex"]; +$insn_data{gv_fetchpv} = [74, \&PUT_strconst, "GET_strconst"]; +$insn_data{gv_stashpv} = [75, \&PUT_strconst, "GET_strconst"]; +$insn_data{gp_sv} = [76, \&PUT_svindex, "GET_svindex"]; +$insn_data{gp_refcnt} = [77, \&PUT_U32, "GET_U32"]; +$insn_data{gp_refcnt_add} = [78, \&PUT_I32, "GET_I32"]; +$insn_data{gp_av} = [79, \&PUT_svindex, "GET_svindex"]; +$insn_data{gp_hv} = [80, \&PUT_svindex, "GET_svindex"]; +$insn_data{gp_cv} = [81, \&PUT_svindex, "GET_svindex"]; +$insn_data{gp_file} = [82, \&PUT_pvindex, "GET_pvindex"]; +$insn_data{gp_io} = [83, \&PUT_svindex, "GET_svindex"]; +$insn_data{gp_form} = [84, \&PUT_svindex, "GET_svindex"]; +$insn_data{gp_cvgen} = [85, \&PUT_U32, "GET_U32"]; +$insn_data{gp_line} = [86, \&PUT_U32, "GET_U32"]; +$insn_data{gp_share} = [87, \&PUT_svindex, "GET_svindex"]; +$insn_data{xgv_flags} = [88, \&PUT_U8, "GET_U8"]; +$insn_data{op_next} = [89, \&PUT_opindex, "GET_opindex"]; +$insn_data{op_sibling} = [90, \&PUT_opindex, "GET_opindex"]; +$insn_data{op_ppaddr} = [91, \&PUT_strconst, "GET_strconst"]; +$insn_data{op_targ} = [92, \&PUT_U32, "GET_U32"]; +$insn_data{op_type} = [93, \&PUT_U16, "GET_U16"]; +$insn_data{op_seq} = [94, \&PUT_U16, "GET_U16"]; +$insn_data{op_flags} = [95, \&PUT_U8, "GET_U8"]; +$insn_data{op_private} = [96, \&PUT_U8, "GET_U8"]; +$insn_data{op_first} = [97, \&PUT_opindex, "GET_opindex"]; +$insn_data{op_last} = [98, \&PUT_opindex, "GET_opindex"]; +$insn_data{op_other} = [99, \&PUT_opindex, "GET_opindex"]; +$insn_data{op_pmreplroot} = [100, \&PUT_opindex, "GET_opindex"]; +$insn_data{op_pmreplstart} = [101, \&PUT_opindex, "GET_opindex"]; +$insn_data{op_pmnext} = [102, \&PUT_opindex, "GET_opindex"]; +$insn_data{op_pmstashpv} = [103, \&PUT_pvindex, "GET_pvindex"]; +$insn_data{op_pmreplrootpo} = [104, \&PUT_U32, "GET_U32"]; +$insn_data{op_pmstash} = [105, \&PUT_svindex, "GET_svindex"]; +$insn_data{op_pmreplrootgv} = [106, \&PUT_svindex, "GET_svindex"]; +$insn_data{pregcomp} = [107, \&PUT_pvcontents, "GET_pvcontents"]; +$insn_data{op_pmflags} = [108, \&PUT_U16, "GET_U16"]; +$insn_data{op_pmpermflags} = [109, \&PUT_U16, "GET_U16"]; +$insn_data{op_pmdynflags} = [110, \&PUT_U8, "GET_U8"]; +$insn_data{op_sv} = [111, \&PUT_svindex, "GET_svindex"]; +$insn_data{op_padix} = [112, \&PUT_U32, "GET_U32"]; +$insn_data{op_pv} = [113, \&PUT_pvcontents, "GET_pvcontents"]; +$insn_data{op_pv_tr} = [114, \&PUT_op_tr_array, "GET_op_tr_array"]; +$insn_data{op_redoop} = [115, \&PUT_opindex, "GET_opindex"]; +$insn_data{op_nextop} = [116, \&PUT_opindex, "GET_opindex"]; +$insn_data{op_lastop} = [117, \&PUT_opindex, "GET_opindex"]; +$insn_data{cop_label} = [118, \&PUT_pvindex, "GET_pvindex"]; +$insn_data{cop_stashpv} = [119, \&PUT_pvindex, "GET_pvindex"]; +$insn_data{cop_file} = [120, \&PUT_pvindex, "GET_pvindex"]; +$insn_data{cop_stash} = [121, \&PUT_svindex, "GET_svindex"]; +$insn_data{cop_filegv} = [122, \&PUT_svindex, "GET_svindex"]; +$insn_data{cop_seq} = [123, \&PUT_U32, "GET_U32"]; +$insn_data{cop_arybase} = [124, \&PUT_I32, "GET_I32"]; +$insn_data{cop_line} = [125, \&PUT_U32, "GET_U32"]; +$insn_data{cop_io} = [126, \&PUT_svindex, "GET_svindex"]; +$insn_data{cop_warnings} = [127, \&PUT_svindex, "GET_svindex"]; +$insn_data{main_start} = [128, \&PUT_opindex, "GET_opindex"]; +$insn_data{main_root} = [129, \&PUT_opindex, "GET_opindex"]; +$insn_data{main_cv} = [130, \&PUT_svindex, "GET_svindex"]; +$insn_data{curpad} = [131, \&PUT_svindex, "GET_svindex"]; +$insn_data{push_begin} = [132, \&PUT_svindex, "GET_svindex"]; +$insn_data{push_init} = [133, \&PUT_svindex, "GET_svindex"]; +$insn_data{push_end} = [134, \&PUT_svindex, "GET_svindex"]; +$insn_data{curstash} = [135, \&PUT_svindex, "GET_svindex"]; +$insn_data{defstash} = [136, \&PUT_svindex, "GET_svindex"]; +$insn_data{data} = [137, \&PUT_U8, "GET_U8"]; +$insn_data{incav} = [138, \&PUT_svindex, "GET_svindex"]; +$insn_data{load_glob} = [139, \&PUT_svindex, "GET_svindex"]; +$insn_data{regex_padav} = [140, \&PUT_svindex, "GET_svindex"]; +$insn_data{dowarn} = [141, \&PUT_U8, "GET_U8"]; +$insn_data{comppad_name} = [142, \&PUT_svindex, "GET_svindex"]; +$insn_data{xgv_stash} = [143, \&PUT_svindex, "GET_svindex"]; +$insn_data{signal} = [144, \&PUT_strconst, "GET_strconst"]; +$insn_data{formfeed} = [145, \&PUT_svindex, "GET_svindex"]; my ($insn_name, $insn_data); while (($insn_name, $insn_data) = each %insn_data) { diff --git a/ext/ByteLoader/byterun.c b/ext/ByteLoader/byterun.c index 93c0a392ee..f2f367ed36 100644 --- a/ext/ByteLoader/byterun.c +++ b/ext/ByteLoader/byterun.c @@ -44,7 +44,7 @@ bset_obj_store(pTHX_ struct byteloader_state *bstate, void *obj, I32 ix) return obj; } -void +int byterun(pTHX_ register struct byteloader_state *bstate) { register int insn; @@ -54,6 +54,7 @@ byterun(pTHX_ register struct byteloader_state *bstate) BYTECODE_HEADER_CHECK; /* croak if incorrect platform */ New(666, bstate->bs_obj_list, 32, void*); /* set op objlist */ bstate->bs_obj_list_fill = 31; + bstate->bs_obj_list[0] = NULL; /* first is always Null */ specialsv_list[0] = Nullsv; specialsv_list[1] = &PL_sv_undef; @@ -201,716 +202,893 @@ byterun(pTHX_ register struct byteloader_state *bstate) BSET_xpv(bstate->bs_sv); break; } - case INSN_XIV32: /* 20 */ + case INSN_XPV_CUR: /* 20 */ { - I32 arg; - BGET_I32(arg); - SvIVX(bstate->bs_sv) = arg; + STRLEN arg; + BGET_U32(arg); + SvCUR(bstate->bs_sv) = arg; + break; + } + case INSN_XPV_LEN: /* 21 */ + { + STRLEN arg; + BGET_U32(arg); + SvLEN(bstate->bs_sv) = arg; break; } - case INSN_XIV64: /* 21 */ + case INSN_XIV: /* 22 */ { - IV64 arg; - BGET_IV64(arg); + IV arg; + BGET_IV(arg); SvIVX(bstate->bs_sv) = arg; break; } - case INSN_XNV: /* 22 */ + case INSN_XNV: /* 23 */ { NV arg; BGET_NV(arg); SvNVX(bstate->bs_sv) = arg; break; } - case INSN_XLV_TARGOFF: /* 23 */ + case INSN_XLV_TARGOFF: /* 24 */ { STRLEN arg; BGET_U32(arg); LvTARGOFF(bstate->bs_sv) = arg; break; } - case INSN_XLV_TARGLEN: /* 24 */ + case INSN_XLV_TARGLEN: /* 25 */ { STRLEN arg; BGET_U32(arg); LvTARGLEN(bstate->bs_sv) = arg; break; } - case INSN_XLV_TARG: /* 25 */ + case INSN_XLV_TARG: /* 26 */ { svindex arg; BGET_svindex(arg); LvTARG(bstate->bs_sv) = arg; break; } - case INSN_XLV_TYPE: /* 26 */ + case INSN_XLV_TYPE: /* 27 */ { char arg; BGET_U8(arg); LvTYPE(bstate->bs_sv) = arg; break; } - case INSN_XBM_USEFUL: /* 27 */ + case INSN_XBM_USEFUL: /* 28 */ { I32 arg; BGET_I32(arg); BmUSEFUL(bstate->bs_sv) = arg; break; } - case INSN_XBM_PREVIOUS: /* 28 */ + case INSN_XBM_PREVIOUS: /* 29 */ { U16 arg; BGET_U16(arg); BmPREVIOUS(bstate->bs_sv) = arg; break; } - case INSN_XBM_RARE: /* 29 */ + case INSN_XBM_RARE: /* 30 */ { U8 arg; BGET_U8(arg); BmRARE(bstate->bs_sv) = arg; break; } - case INSN_XFM_LINES: /* 30 */ + case INSN_XFM_LINES: /* 31 */ { IV arg; BGET_IV(arg); FmLINES(bstate->bs_sv) = arg; break; } - case INSN_XIO_LINES: /* 31 */ + case INSN_XIO_LINES: /* 32 */ { IV arg; BGET_IV(arg); IoLINES(bstate->bs_sv) = arg; break; } - case INSN_XIO_PAGE: /* 32 */ + case INSN_XIO_PAGE: /* 33 */ { IV arg; BGET_IV(arg); IoPAGE(bstate->bs_sv) = arg; break; } - case INSN_XIO_PAGE_LEN: /* 33 */ + case INSN_XIO_PAGE_LEN: /* 34 */ { IV arg; BGET_IV(arg); IoPAGE_LEN(bstate->bs_sv) = arg; break; } - case INSN_XIO_LINES_LEFT: /* 34 */ + case INSN_XIO_LINES_LEFT: /* 36 */ { IV arg; BGET_IV(arg); IoLINES_LEFT(bstate->bs_sv) = arg; break; } - case INSN_XIO_TOP_NAME: /* 36 */ + case INSN_XIO_TOP_NAME: /* 37 */ { - pvcontents arg; - BGET_pvcontents(arg); + pvindex arg; + BGET_pvindex(arg); IoTOP_NAME(bstate->bs_sv) = arg; break; } - case INSN_XIO_TOP_GV: /* 37 */ + case INSN_XIO_TOP_GV: /* 38 */ { svindex arg; BGET_svindex(arg); *(SV**)&IoTOP_GV(bstate->bs_sv) = arg; break; } - case INSN_XIO_FMT_NAME: /* 38 */ + case INSN_XIO_FMT_NAME: /* 39 */ { - pvcontents arg; - BGET_pvcontents(arg); + pvindex arg; + BGET_pvindex(arg); IoFMT_NAME(bstate->bs_sv) = arg; break; } - case INSN_XIO_FMT_GV: /* 39 */ + case INSN_XIO_FMT_GV: /* 40 */ { svindex arg; BGET_svindex(arg); *(SV**)&IoFMT_GV(bstate->bs_sv) = arg; break; } - case INSN_XIO_BOTTOM_NAME: /* 40 */ + case INSN_XIO_BOTTOM_NAME: /* 41 */ { - pvcontents arg; - BGET_pvcontents(arg); + pvindex arg; + BGET_pvindex(arg); IoBOTTOM_NAME(bstate->bs_sv) = arg; break; } - case INSN_XIO_BOTTOM_GV: /* 41 */ + case INSN_XIO_BOTTOM_GV: /* 42 */ { svindex arg; BGET_svindex(arg); *(SV**)&IoBOTTOM_GV(bstate->bs_sv) = arg; break; } - case INSN_XIO_SUBPROCESS: /* 42 */ + case INSN_XIO_SUBPROCESS: /* 43 */ { short arg; BGET_U16(arg); IoSUBPROCESS(bstate->bs_sv) = arg; break; } - case INSN_XIO_TYPE: /* 43 */ + case INSN_XIO_TYPE: /* 44 */ { char arg; BGET_U8(arg); IoTYPE(bstate->bs_sv) = arg; break; } - case INSN_XIO_FLAGS: /* 44 */ + case INSN_XIO_FLAGS: /* 45 */ { char arg; BGET_U8(arg); IoFLAGS(bstate->bs_sv) = arg; break; } - case INSN_XCV_STASH: /* 45 */ + case INSN_XCV_XSUBANY: /* 46 */ + { + svindex arg; + BGET_svindex(arg); + *(SV**)&CvXSUBANY(bstate->bs_sv).any_ptr = arg; + break; + } + case INSN_XCV_STASH: /* 47 */ { svindex arg; BGET_svindex(arg); *(SV**)&CvSTASH(bstate->bs_sv) = arg; break; } - case INSN_XCV_START: /* 46 */ + case INSN_XCV_START: /* 48 */ { opindex arg; BGET_opindex(arg); CvSTART(bstate->bs_sv) = arg; break; } - case INSN_XCV_ROOT: /* 47 */ + case INSN_XCV_ROOT: /* 49 */ { opindex arg; BGET_opindex(arg); CvROOT(bstate->bs_sv) = arg; break; } - case INSN_XCV_GV: /* 48 */ + case INSN_XCV_GV: /* 50 */ { svindex arg; BGET_svindex(arg); *(SV**)&CvGV(bstate->bs_sv) = arg; break; } - case INSN_XCV_FILE: /* 49 */ + case INSN_XCV_FILE: /* 51 */ { pvindex arg; BGET_pvindex(arg); CvFILE(bstate->bs_sv) = arg; break; } - case INSN_XCV_DEPTH: /* 50 */ + case INSN_XCV_DEPTH: /* 52 */ { long arg; BGET_I32(arg); CvDEPTH(bstate->bs_sv) = arg; break; } - case INSN_XCV_PADLIST: /* 51 */ + case INSN_XCV_PADLIST: /* 53 */ { svindex arg; BGET_svindex(arg); *(SV**)&CvPADLIST(bstate->bs_sv) = arg; break; } - case INSN_XCV_OUTSIDE: /* 52 */ + case INSN_XCV_OUTSIDE: /* 54 */ { svindex arg; BGET_svindex(arg); *(SV**)&CvOUTSIDE(bstate->bs_sv) = arg; break; } - case INSN_XCV_OUTSIDE_SEQ: /* 53 */ + case INSN_XCV_OUTSIDE_SEQ: /* 55 */ { U32 arg; BGET_U32(arg); CvOUTSIDE_SEQ(bstate->bs_sv) = arg; break; } - case INSN_XCV_FLAGS: /* 54 */ + case INSN_XCV_FLAGS: /* 56 */ { U16 arg; BGET_U16(arg); CvFLAGS(bstate->bs_sv) = arg; break; } - case INSN_AV_EXTEND: /* 55 */ + case INSN_AV_EXTEND: /* 57 */ { SSize_t arg; BGET_I32(arg); BSET_av_extend(bstate->bs_sv, arg); break; } - case INSN_AV_PUSH: /* 56 */ + case INSN_AV_PUSHX: /* 58 */ + { + svindex arg; + BGET_svindex(arg); + BSET_av_pushx(bstate->bs_sv, arg); + break; + } + case INSN_AV_PUSH: /* 59 */ { svindex arg; BGET_svindex(arg); BSET_av_push(bstate->bs_sv, arg); break; } - case INSN_XAV_FILL: /* 57 */ + case INSN_XAV_FILL: /* 60 */ { SSize_t arg; BGET_I32(arg); AvFILLp(bstate->bs_sv) = arg; break; } - case INSN_XAV_MAX: /* 58 */ + case INSN_XAV_MAX: /* 61 */ { SSize_t arg; BGET_I32(arg); AvMAX(bstate->bs_sv) = arg; break; } - case INSN_XAV_FLAGS: /* 59 */ + case INSN_XAV_FLAGS: /* 62 */ { U8 arg; BGET_U8(arg); AvFLAGS(bstate->bs_sv) = arg; break; } - case INSN_XHV_RITER: /* 60 */ + case INSN_XHV_RITER: /* 63 */ { I32 arg; BGET_I32(arg); HvRITER(bstate->bs_sv) = arg; break; } - case INSN_XHV_NAME: /* 61 */ + case INSN_XHV_NAME: /* 64 */ { - pvcontents arg; - BGET_pvcontents(arg); + pvindex arg; + BGET_pvindex(arg); HvNAME(bstate->bs_sv) = arg; break; } - case INSN_HV_STORE: /* 62 */ + case INSN_XHV_PMROOT: /* 65 */ + { + opindex arg; + BGET_opindex(arg); + *(OP**)&HvPMROOT(bstate->bs_sv) = arg; + break; + } + case INSN_HV_STORE: /* 66 */ { svindex arg; BGET_svindex(arg); BSET_hv_store(bstate->bs_sv, arg); break; } - case INSN_SV_MAGIC: /* 63 */ + case INSN_SV_MAGIC: /* 67 */ { char arg; BGET_U8(arg); BSET_sv_magic(bstate->bs_sv, arg); break; } - case INSN_MG_OBJ: /* 64 */ + case INSN_MG_OBJ: /* 68 */ { svindex arg; BGET_svindex(arg); SvMAGIC(bstate->bs_sv)->mg_obj = arg; break; } - case INSN_MG_PRIVATE: /* 65 */ + case INSN_MG_PRIVATE: /* 69 */ { U16 arg; BGET_U16(arg); SvMAGIC(bstate->bs_sv)->mg_private = arg; break; } - case INSN_MG_FLAGS: /* 66 */ + case INSN_MG_FLAGS: /* 70 */ { U8 arg; BGET_U8(arg); SvMAGIC(bstate->bs_sv)->mg_flags = arg; break; } - case INSN_MG_PV: /* 67 */ + case INSN_MG_NAME: /* 71 */ { pvcontents arg; BGET_pvcontents(arg); - BSET_mg_pv(SvMAGIC(bstate->bs_sv), arg); + BSET_mg_name(SvMAGIC(bstate->bs_sv), arg); + break; + } + case INSN_MG_NAMEX: /* 72 */ + { + svindex arg; + BGET_svindex(arg); + BSET_mg_namex(SvMAGIC(bstate->bs_sv), arg); break; } - case INSN_XMG_STASH: /* 68 */ + case INSN_XMG_STASH: /* 73 */ { svindex arg; BGET_svindex(arg); *(SV**)&SvSTASH(bstate->bs_sv) = arg; break; } - case INSN_GV_FETCHPV: /* 69 */ + case INSN_GV_FETCHPV: /* 74 */ { strconst arg; BGET_strconst(arg); BSET_gv_fetchpv(bstate->bs_sv, arg); break; } - case INSN_GV_STASHPV: /* 70 */ + case INSN_GV_STASHPV: /* 75 */ { strconst arg; BGET_strconst(arg); BSET_gv_stashpv(bstate->bs_sv, arg); break; } - case INSN_GP_SV: /* 71 */ + case INSN_GP_SV: /* 76 */ { svindex arg; BGET_svindex(arg); GvSV(bstate->bs_sv) = arg; break; } - case INSN_GP_REFCNT: /* 72 */ + case INSN_GP_REFCNT: /* 77 */ { U32 arg; BGET_U32(arg); GvREFCNT(bstate->bs_sv) = arg; break; } - case INSN_GP_REFCNT_ADD: /* 73 */ + case INSN_GP_REFCNT_ADD: /* 78 */ { I32 arg; BGET_I32(arg); BSET_gp_refcnt_add(GvREFCNT(bstate->bs_sv), arg); break; } - case INSN_GP_AV: /* 74 */ + case INSN_GP_AV: /* 79 */ { svindex arg; BGET_svindex(arg); *(SV**)&GvAV(bstate->bs_sv) = arg; break; } - case INSN_GP_HV: /* 75 */ + case INSN_GP_HV: /* 80 */ { svindex arg; BGET_svindex(arg); *(SV**)&GvHV(bstate->bs_sv) = arg; break; } - case INSN_GP_CV: /* 76 */ + case INSN_GP_CV: /* 81 */ { svindex arg; BGET_svindex(arg); *(SV**)&GvCV(bstate->bs_sv) = arg; break; } - case INSN_GP_FILE: /* 77 */ + case INSN_GP_FILE: /* 82 */ { pvindex arg; BGET_pvindex(arg); GvFILE(bstate->bs_sv) = arg; break; } - case INSN_GP_IO: /* 78 */ + case INSN_GP_IO: /* 83 */ { svindex arg; BGET_svindex(arg); *(SV**)&GvIOp(bstate->bs_sv) = arg; break; } - case INSN_GP_FORM: /* 79 */ + case INSN_GP_FORM: /* 84 */ { svindex arg; BGET_svindex(arg); *(SV**)&GvFORM(bstate->bs_sv) = arg; break; } - case INSN_GP_CVGEN: /* 80 */ + case INSN_GP_CVGEN: /* 85 */ { U32 arg; BGET_U32(arg); GvCVGEN(bstate->bs_sv) = arg; break; } - case INSN_GP_LINE: /* 81 */ + case INSN_GP_LINE: /* 86 */ { line_t arg; BGET_U32(arg); GvLINE(bstate->bs_sv) = arg; break; } - case INSN_GP_SHARE: /* 82 */ + case INSN_GP_SHARE: /* 87 */ { svindex arg; BGET_svindex(arg); BSET_gp_share(bstate->bs_sv, arg); break; } - case INSN_XGV_FLAGS: /* 83 */ + case INSN_XGV_FLAGS: /* 88 */ { U8 arg; BGET_U8(arg); GvFLAGS(bstate->bs_sv) = arg; break; } - case INSN_OP_NEXT: /* 84 */ + case INSN_OP_NEXT: /* 89 */ { opindex arg; BGET_opindex(arg); PL_op->op_next = arg; break; } - case INSN_OP_SIBLING: /* 85 */ + case INSN_OP_SIBLING: /* 90 */ { opindex arg; BGET_opindex(arg); PL_op->op_sibling = arg; break; } - case INSN_OP_PPADDR: /* 86 */ + case INSN_OP_PPADDR: /* 91 */ { strconst arg; BGET_strconst(arg); BSET_op_ppaddr(PL_op->op_ppaddr, arg); break; } - case INSN_OP_TARG: /* 87 */ + case INSN_OP_TARG: /* 92 */ { PADOFFSET arg; BGET_U32(arg); PL_op->op_targ = arg; break; } - case INSN_OP_TYPE: /* 88 */ + case INSN_OP_TYPE: /* 93 */ { OPCODE arg; BGET_U16(arg); BSET_op_type(PL_op, arg); break; } - case INSN_OP_SEQ: /* 89 */ + case INSN_OP_SEQ: /* 94 */ { U16 arg; BGET_U16(arg); PL_op->op_seq = arg; break; } - case INSN_OP_FLAGS: /* 90 */ + case INSN_OP_FLAGS: /* 95 */ { U8 arg; BGET_U8(arg); PL_op->op_flags = arg; break; } - case INSN_OP_PRIVATE: /* 91 */ + case INSN_OP_PRIVATE: /* 96 */ { U8 arg; BGET_U8(arg); PL_op->op_private = arg; break; } - case INSN_OP_FIRST: /* 92 */ + case INSN_OP_FIRST: /* 97 */ { opindex arg; BGET_opindex(arg); cUNOP->op_first = arg; break; } - case INSN_OP_LAST: /* 93 */ + case INSN_OP_LAST: /* 98 */ { opindex arg; BGET_opindex(arg); cBINOP->op_last = arg; break; } - case INSN_OP_OTHER: /* 94 */ + case INSN_OP_OTHER: /* 99 */ { opindex arg; BGET_opindex(arg); cLOGOP->op_other = arg; break; } - case INSN_OP_PMREPLROOT: /* 95 */ + case INSN_OP_PMREPLROOT: /* 100 */ { opindex arg; BGET_opindex(arg); cPMOP->op_pmreplroot = arg; break; } - case INSN_OP_PMREPLROOTGV: /* 96 */ - { - svindex arg; - BGET_svindex(arg); - *(SV**)&cPMOP->op_pmreplroot = arg; - break; - } - case INSN_OP_PMREPLSTART: /* 97 */ + case INSN_OP_PMREPLSTART: /* 101 */ { opindex arg; BGET_opindex(arg); cPMOP->op_pmreplstart = arg; break; } - case INSN_OP_PMNEXT: /* 98 */ + case INSN_OP_PMNEXT: /* 102 */ { opindex arg; BGET_opindex(arg); *(OP**)&cPMOP->op_pmnext = arg; break; } - case INSN_PREGCOMP: /* 99 */ +#ifdef USE_ITHREADS + case INSN_OP_PMSTASHPV: /* 103 */ + { + pvindex arg; + BGET_pvindex(arg); + cPMOP->op_pmstashpv = arg; + break; + } + case INSN_OP_PMREPLROOTPO: /* 104 */ + { + PADOFFSET arg; + BGET_U32(arg); + (PADOFFSET)cPMOP->op_pmreplroot = arg; + break; + } +#else + case INSN_OP_PMSTASH: /* 105 */ + { + svindex arg; + BGET_svindex(arg); + *(SV**)&cPMOP->op_pmstash = arg; + break; + } + case INSN_OP_PMREPLROOTGV: /* 106 */ + { + svindex arg; + BGET_svindex(arg); + *(SV**)&cPMOP->op_pmreplroot = arg; + break; + } +#endif + case INSN_PREGCOMP: /* 107 */ { pvcontents arg; BGET_pvcontents(arg); BSET_pregcomp(PL_op, arg); break; } - case INSN_OP_PMFLAGS: /* 100 */ + case INSN_OP_PMFLAGS: /* 108 */ { U16 arg; BGET_U16(arg); cPMOP->op_pmflags = arg; break; } - case INSN_OP_PMPERMFLAGS: /* 101 */ + case INSN_OP_PMPERMFLAGS: /* 109 */ { U16 arg; BGET_U16(arg); cPMOP->op_pmpermflags = arg; break; } - case INSN_OP_SV: /* 102 */ + case INSN_OP_PMDYNFLAGS: /* 110 */ + { + U8 arg; + BGET_U8(arg); + cPMOP->op_pmdynflags = arg; + break; + } + case INSN_OP_SV: /* 111 */ { svindex arg; BGET_svindex(arg); cSVOP->op_sv = arg; break; } - case INSN_OP_PADIX: /* 103 */ + case INSN_OP_PADIX: /* 112 */ { PADOFFSET arg; BGET_U32(arg); cPADOP->op_padix = arg; break; } - case INSN_OP_PV: /* 104 */ + case INSN_OP_PV: /* 113 */ { pvcontents arg; BGET_pvcontents(arg); cPVOP->op_pv = arg; break; } - case INSN_OP_PV_TR: /* 105 */ + case INSN_OP_PV_TR: /* 114 */ { op_tr_array arg; BGET_op_tr_array(arg); cPVOP->op_pv = arg; break; } - case INSN_OP_REDOOP: /* 106 */ + case INSN_OP_REDOOP: /* 115 */ { opindex arg; BGET_opindex(arg); cLOOP->op_redoop = arg; break; } - case INSN_OP_NEXTOP: /* 107 */ + case INSN_OP_NEXTOP: /* 116 */ { opindex arg; BGET_opindex(arg); cLOOP->op_nextop = arg; break; } - case INSN_OP_LASTOP: /* 108 */ + case INSN_OP_LASTOP: /* 117 */ { opindex arg; BGET_opindex(arg); cLOOP->op_lastop = arg; break; } - case INSN_COP_LABEL: /* 109 */ + case INSN_COP_LABEL: /* 118 */ { pvindex arg; BGET_pvindex(arg); cCOP->cop_label = arg; break; } - case INSN_COP_STASHPV: /* 110 */ +#ifdef USE_ITHREADS + case INSN_COP_STASHPV: /* 119 */ { pvindex arg; BGET_pvindex(arg); BSET_cop_stashpv(cCOP, arg); break; } - case INSN_COP_FILE: /* 111 */ + case INSN_COP_FILE: /* 120 */ { pvindex arg; BGET_pvindex(arg); BSET_cop_file(cCOP, arg); break; } - case INSN_COP_SEQ: /* 112 */ +#else + case INSN_COP_STASH: /* 121 */ + { + svindex arg; + BGET_svindex(arg); + BSET_cop_stash(cCOP, arg); + break; + } + case INSN_COP_FILEGV: /* 122 */ + { + svindex arg; + BGET_svindex(arg); + BSET_cop_filegv(cCOP, arg); + break; + } +#endif + case INSN_COP_SEQ: /* 123 */ { U32 arg; BGET_U32(arg); cCOP->cop_seq = arg; break; } - case INSN_COP_ARYBASE: /* 113 */ + case INSN_COP_ARYBASE: /* 124 */ { I32 arg; BGET_I32(arg); cCOP->cop_arybase = arg; break; } - case INSN_COP_LINE: /* 114 */ + case INSN_COP_LINE: /* 125 */ { line_t arg; BGET_U32(arg); - BSET_cop_line(cCOP, arg); + cCOP->cop_line = arg; + break; + } + case INSN_COP_IO: /* 126 */ + { + svindex arg; + BGET_svindex(arg); + cCOP->cop_io = arg; break; } - case INSN_COP_WARNINGS: /* 115 */ + case INSN_COP_WARNINGS: /* 127 */ { svindex arg; BGET_svindex(arg); cCOP->cop_warnings = arg; break; } - case INSN_MAIN_START: /* 116 */ + case INSN_MAIN_START: /* 128 */ { opindex arg; BGET_opindex(arg); PL_main_start = arg; break; } - case INSN_MAIN_ROOT: /* 117 */ + case INSN_MAIN_ROOT: /* 129 */ { opindex arg; BGET_opindex(arg); PL_main_root = arg; break; } - case INSN_CURPAD: /* 118 */ + case INSN_MAIN_CV: /* 130 */ + { + svindex arg; + BGET_svindex(arg); + *(SV**)&PL_main_cv = arg; + break; + } + case INSN_CURPAD: /* 131 */ { svindex arg; BGET_svindex(arg); BSET_curpad(PL_curpad, arg); break; } - case INSN_PUSH_BEGIN: /* 119 */ + case INSN_PUSH_BEGIN: /* 132 */ { svindex arg; BGET_svindex(arg); BSET_push_begin(PL_beginav, arg); break; } - case INSN_PUSH_INIT: /* 120 */ + case INSN_PUSH_INIT: /* 133 */ { svindex arg; BGET_svindex(arg); BSET_push_init(PL_initav, arg); break; } - case INSN_PUSH_END: /* 121 */ + case INSN_PUSH_END: /* 134 */ { svindex arg; BGET_svindex(arg); BSET_push_end(PL_endav, arg); break; } + case INSN_CURSTASH: /* 135 */ + { + svindex arg; + BGET_svindex(arg); + *(SV**)&PL_curstash = arg; + break; + } + case INSN_DEFSTASH: /* 136 */ + { + svindex arg; + BGET_svindex(arg); + *(SV**)&PL_defstash = arg; + break; + } + case INSN_DATA: /* 137 */ + { + U8 arg; + BGET_U8(arg); + BSET_data(none, arg); + break; + } + case INSN_INCAV: /* 138 */ + { + svindex arg; + BGET_svindex(arg); + *(SV**)&GvAVn(PL_incgv) = arg; + break; + } + case INSN_LOAD_GLOB: /* 139 */ + { + svindex arg; + BGET_svindex(arg); + BSET_load_glob(none, arg); + break; + } +#ifdef USE_ITHREADS + case INSN_REGEX_PADAV: /* 140 */ + { + svindex arg; + BGET_svindex(arg); + *(SV**)&PL_regex_padav = arg; + break; + } +#endif + case INSN_DOWARN: /* 141 */ + { + U8 arg; + BGET_U8(arg); + PL_dowarn = arg; + break; + } + case INSN_COMPPAD_NAME: /* 142 */ + { + svindex arg; + BGET_svindex(arg); + *(SV**)&PL_comppad_name = arg; + break; + } + case INSN_XGV_STASH: /* 143 */ + { + svindex arg; + BGET_svindex(arg); + *(SV**)&GvSTASH(bstate->bs_sv) = arg; + break; + } + case INSN_SIGNAL: /* 144 */ + { + strconst arg; + BGET_strconst(arg); + BSET_signal(bstate->bs_sv, arg); + break; + } + case INSN_FORMFEED: /* 145 */ + { + svindex arg; + BGET_svindex(arg); + PL_formfeed = arg; + break; + } default: Perl_croak(aTHX_ "Illegal bytecode instruction %d\n", insn); /* NOTREACHED */ } } + return 0; } diff --git a/ext/ByteLoader/byterun.h b/ext/ByteLoader/byterun.h index 7cdfe99e19..6ab4425fc7 100644 --- a/ext/ByteLoader/byterun.h +++ b/ext/ByteLoader/byterun.h @@ -25,7 +25,7 @@ struct byteloader_state { int bl_getc(struct byteloader_fdata *); int bl_read(struct byteloader_fdata *, char *, size_t, size_t); -extern void byterun(pTHX_ struct byteloader_state *); +extern int byterun(pTHX_ struct byteloader_state *); enum { INSN_RET, /* 0 */ @@ -48,109 +48,133 @@ enum { INSN_SV_FLAGS, /* 17 */ INSN_XRV, /* 18 */ INSN_XPV, /* 19 */ - INSN_XIV32, /* 20 */ - INSN_XIV64, /* 21 */ - INSN_XNV, /* 22 */ - INSN_XLV_TARGOFF, /* 23 */ - INSN_XLV_TARGLEN, /* 24 */ - INSN_XLV_TARG, /* 25 */ - INSN_XLV_TYPE, /* 26 */ - INSN_XBM_USEFUL, /* 27 */ - INSN_XBM_PREVIOUS, /* 28 */ - INSN_XBM_RARE, /* 29 */ - INSN_XFM_LINES, /* 30 */ - INSN_XIO_LINES, /* 31 */ - INSN_XIO_PAGE, /* 32 */ - INSN_XIO_PAGE_LEN, /* 33 */ - INSN_XIO_LINES_LEFT, /* 34 */ + INSN_XPV_CUR, /* 20 */ + INSN_XPV_LEN, /* 21 */ + INSN_XIV, /* 22 */ + INSN_XNV, /* 23 */ + INSN_XLV_TARGOFF, /* 24 */ + INSN_XLV_TARGLEN, /* 25 */ + INSN_XLV_TARG, /* 26 */ + INSN_XLV_TYPE, /* 27 */ + INSN_XBM_USEFUL, /* 28 */ + INSN_XBM_PREVIOUS, /* 29 */ + INSN_XBM_RARE, /* 30 */ + INSN_XFM_LINES, /* 31 */ + INSN_XIO_LINES, /* 32 */ + INSN_XIO_PAGE, /* 33 */ + INSN_XIO_PAGE_LEN, /* 34 */ INSN_COMMENT, /* 35 */ - INSN_XIO_TOP_NAME, /* 36 */ - INSN_XIO_TOP_GV, /* 37 */ - INSN_XIO_FMT_NAME, /* 38 */ - INSN_XIO_FMT_GV, /* 39 */ - INSN_XIO_BOTTOM_NAME, /* 40 */ - INSN_XIO_BOTTOM_GV, /* 41 */ - INSN_XIO_SUBPROCESS, /* 42 */ - INSN_XIO_TYPE, /* 43 */ - INSN_XIO_FLAGS, /* 44 */ - INSN_XCV_STASH, /* 45 */ - INSN_XCV_START, /* 46 */ - INSN_XCV_ROOT, /* 47 */ - INSN_XCV_GV, /* 48 */ - INSN_XCV_FILE, /* 49 */ - INSN_XCV_DEPTH, /* 50 */ - INSN_XCV_PADLIST, /* 51 */ - INSN_XCV_OUTSIDE, /* 52 */ - INSN_XCV_OUTSIDE_SEQ, /* 53 */ - INSN_XCV_FLAGS, /* 54 */ - INSN_AV_EXTEND, /* 55 */ - INSN_AV_PUSH, /* 56 */ - INSN_XAV_FILL, /* 57 */ - INSN_XAV_MAX, /* 58 */ - INSN_XAV_FLAGS, /* 59 */ - INSN_XHV_RITER, /* 60 */ - INSN_XHV_NAME, /* 61 */ - INSN_HV_STORE, /* 62 */ - INSN_SV_MAGIC, /* 63 */ - INSN_MG_OBJ, /* 64 */ - INSN_MG_PRIVATE, /* 65 */ - INSN_MG_FLAGS, /* 66 */ - INSN_MG_PV, /* 67 */ - INSN_XMG_STASH, /* 68 */ - INSN_GV_FETCHPV, /* 69 */ - INSN_GV_STASHPV, /* 70 */ - INSN_GP_SV, /* 71 */ - INSN_GP_REFCNT, /* 72 */ - INSN_GP_REFCNT_ADD, /* 73 */ - INSN_GP_AV, /* 74 */ - INSN_GP_HV, /* 75 */ - INSN_GP_CV, /* 76 */ - INSN_GP_FILE, /* 77 */ - INSN_GP_IO, /* 78 */ - INSN_GP_FORM, /* 79 */ - INSN_GP_CVGEN, /* 80 */ - INSN_GP_LINE, /* 81 */ - INSN_GP_SHARE, /* 82 */ - INSN_XGV_FLAGS, /* 83 */ - INSN_OP_NEXT, /* 84 */ - INSN_OP_SIBLING, /* 85 */ - INSN_OP_PPADDR, /* 86 */ - INSN_OP_TARG, /* 87 */ - INSN_OP_TYPE, /* 88 */ - INSN_OP_SEQ, /* 89 */ - INSN_OP_FLAGS, /* 90 */ - INSN_OP_PRIVATE, /* 91 */ - INSN_OP_FIRST, /* 92 */ - INSN_OP_LAST, /* 93 */ - INSN_OP_OTHER, /* 94 */ - INSN_OP_PMREPLROOT, /* 95 */ - INSN_OP_PMREPLROOTGV, /* 96 */ - INSN_OP_PMREPLSTART, /* 97 */ - INSN_OP_PMNEXT, /* 98 */ - INSN_PREGCOMP, /* 99 */ - INSN_OP_PMFLAGS, /* 100 */ - INSN_OP_PMPERMFLAGS, /* 101 */ - INSN_OP_SV, /* 102 */ - INSN_OP_PADIX, /* 103 */ - INSN_OP_PV, /* 104 */ - INSN_OP_PV_TR, /* 105 */ - INSN_OP_REDOOP, /* 106 */ - INSN_OP_NEXTOP, /* 107 */ - INSN_OP_LASTOP, /* 108 */ - INSN_COP_LABEL, /* 109 */ - INSN_COP_STASHPV, /* 110 */ - INSN_COP_FILE, /* 111 */ - INSN_COP_SEQ, /* 112 */ - INSN_COP_ARYBASE, /* 113 */ - INSN_COP_LINE, /* 114 */ - INSN_COP_WARNINGS, /* 115 */ - INSN_MAIN_START, /* 116 */ - INSN_MAIN_ROOT, /* 117 */ - INSN_CURPAD, /* 118 */ - INSN_PUSH_BEGIN, /* 119 */ - INSN_PUSH_INIT, /* 120 */ - INSN_PUSH_END, /* 121 */ - MAX_INSN = 121 + INSN_XIO_LINES_LEFT, /* 36 */ + INSN_XIO_TOP_NAME, /* 37 */ + INSN_XIO_TOP_GV, /* 38 */ + INSN_XIO_FMT_NAME, /* 39 */ + INSN_XIO_FMT_GV, /* 40 */ + INSN_XIO_BOTTOM_NAME, /* 41 */ + INSN_XIO_BOTTOM_GV, /* 42 */ + INSN_XIO_SUBPROCESS, /* 43 */ + INSN_XIO_TYPE, /* 44 */ + INSN_XIO_FLAGS, /* 45 */ + INSN_XCV_XSUBANY, /* 46 */ + INSN_XCV_STASH, /* 47 */ + INSN_XCV_START, /* 48 */ + INSN_XCV_ROOT, /* 49 */ + INSN_XCV_GV, /* 50 */ + INSN_XCV_FILE, /* 51 */ + INSN_XCV_DEPTH, /* 52 */ + INSN_XCV_PADLIST, /* 53 */ + INSN_XCV_OUTSIDE, /* 54 */ + INSN_XCV_OUTSIDE_SEQ, /* 55 */ + INSN_XCV_FLAGS, /* 56 */ + INSN_AV_EXTEND, /* 57 */ + INSN_AV_PUSHX, /* 58 */ + INSN_AV_PUSH, /* 59 */ + INSN_XAV_FILL, /* 60 */ + INSN_XAV_MAX, /* 61 */ + INSN_XAV_FLAGS, /* 62 */ + INSN_XHV_RITER, /* 63 */ + INSN_XHV_NAME, /* 64 */ + INSN_XHV_PMROOT, /* 65 */ + INSN_HV_STORE, /* 66 */ + INSN_SV_MAGIC, /* 67 */ + INSN_MG_OBJ, /* 68 */ + INSN_MG_PRIVATE, /* 69 */ + INSN_MG_FLAGS, /* 70 */ + INSN_MG_NAME, /* 71 */ + INSN_MG_NAMEX, /* 72 */ + INSN_XMG_STASH, /* 73 */ + INSN_GV_FETCHPV, /* 74 */ + INSN_GV_STASHPV, /* 75 */ + INSN_GP_SV, /* 76 */ + INSN_GP_REFCNT, /* 77 */ + INSN_GP_REFCNT_ADD, /* 78 */ + INSN_GP_AV, /* 79 */ + INSN_GP_HV, /* 80 */ + INSN_GP_CV, /* 81 */ + INSN_GP_FILE, /* 82 */ + INSN_GP_IO, /* 83 */ + INSN_GP_FORM, /* 84 */ + INSN_GP_CVGEN, /* 85 */ + INSN_GP_LINE, /* 86 */ + INSN_GP_SHARE, /* 87 */ + INSN_XGV_FLAGS, /* 88 */ + INSN_OP_NEXT, /* 89 */ + INSN_OP_SIBLING, /* 90 */ + INSN_OP_PPADDR, /* 91 */ + INSN_OP_TARG, /* 92 */ + INSN_OP_TYPE, /* 93 */ + INSN_OP_SEQ, /* 94 */ + INSN_OP_FLAGS, /* 95 */ + INSN_OP_PRIVATE, /* 96 */ + INSN_OP_FIRST, /* 97 */ + INSN_OP_LAST, /* 98 */ + INSN_OP_OTHER, /* 99 */ + INSN_OP_PMREPLROOT, /* 100 */ + INSN_OP_PMREPLSTART, /* 101 */ + INSN_OP_PMNEXT, /* 102 */ + INSN_OP_PMSTASHPV, /* 103 */ + INSN_OP_PMREPLROOTPO, /* 104 */ + INSN_OP_PMSTASH, /* 105 */ + INSN_OP_PMREPLROOTGV, /* 106 */ + INSN_PREGCOMP, /* 107 */ + INSN_OP_PMFLAGS, /* 108 */ + INSN_OP_PMPERMFLAGS, /* 109 */ + INSN_OP_PMDYNFLAGS, /* 110 */ + INSN_OP_SV, /* 111 */ + INSN_OP_PADIX, /* 112 */ + INSN_OP_PV, /* 113 */ + INSN_OP_PV_TR, /* 114 */ + INSN_OP_REDOOP, /* 115 */ + INSN_OP_NEXTOP, /* 116 */ + INSN_OP_LASTOP, /* 117 */ + INSN_COP_LABEL, /* 118 */ + INSN_COP_STASHPV, /* 119 */ + INSN_COP_FILE, /* 120 */ + INSN_COP_STASH, /* 121 */ + INSN_COP_FILEGV, /* 122 */ + INSN_COP_SEQ, /* 123 */ + INSN_COP_ARYBASE, /* 124 */ + INSN_COP_LINE, /* 125 */ + INSN_COP_IO, /* 126 */ + INSN_COP_WARNINGS, /* 127 */ + INSN_MAIN_START, /* 128 */ + INSN_MAIN_ROOT, /* 129 */ + INSN_MAIN_CV, /* 130 */ + INSN_CURPAD, /* 131 */ + INSN_PUSH_BEGIN, /* 132 */ + INSN_PUSH_INIT, /* 133 */ + INSN_PUSH_END, /* 134 */ + INSN_CURSTASH, /* 135 */ + INSN_DEFSTASH, /* 136 */ + INSN_DATA, /* 137 */ + INSN_INCAV, /* 138 */ + INSN_LOAD_GLOB, /* 139 */ + INSN_REGEX_PADAV, /* 140 */ + INSN_DOWARN, /* 141 */ + INSN_COMPPAD_NAME, /* 142 */ + INSN_XGV_STASH, /* 143 */ + INSN_SIGNAL, /* 144 */ + INSN_FORMFEED, /* 145 */ + MAX_INSN = 145 }; enum { |