once
- rv2gv refgen srefgen ref refassign lvref lvrefslice
+ rv2gv refgen srefgen ref refassign lvref lvrefslice lvavref
bless -- could be used to change ownership of objects
(reblessing)
@{$bits{lslice}}{1,0} = ($bf[1], $bf[1]);
$bits{lstat}{0} = $bf[0];
@{$bits{lt}}{1,0} = ($bf[1], $bf[1]);
+$bits{lvavref}{0} = $bf[0];
@{$bits{lvref}}{6,5,0} = ($bf[7], $bf[7], $bf[0]);
$bits{mapwhile}{0} = $bf[0];
$bits{method}{0} = $bf[0];
"refassign",
"lvref",
"lvrefslice",
+ "lvavref",
"freed",
};
#endif
"lvalue ref assignment",
"lvalue ref assignment",
"lvalue ref assignment",
+ "lvalue array reference",
"freed op",
};
#endif
Perl_pp_refassign,
Perl_pp_lvref,
Perl_pp_lvrefslice,
+ Perl_pp_lvavref,
}
#endif
#ifdef PERL_PPADDR_INITED
Perl_ck_refassign, /* refassign */
Perl_ck_null, /* lvref */
Perl_ck_null, /* lvrefslice */
+ Perl_ck_null, /* lvavref */
}
#endif
#ifdef PERL_CHECK_INITED
0x00000240, /* refassign */
0x00000b40, /* lvref */
0x00000440, /* lvrefslice */
+ 0x00000b40, /* lvavref */
};
#endif
632, /* refassign */
636, /* lvref */
640, /* lvrefslice */
+ 641, /* lvavref */
};
/* refassign */ 0x277c, 0x037a, 0x13e8, 0x0067,
/* lvref */ 0x277c, 0x037a, 0x13e8, 0x0003,
/* lvrefslice */ 0x277d,
+ /* lvavref */ 0x0003,
};
/* REFASSIGN */ (OPpARG2_MASK|OPpLVREF_ELEM|OPpLVREF_TYPE|OPpLVAL_INTRO),
/* LVREF */ (OPpARG1_MASK|OPpLVREF_ELEM|OPpLVREF_TYPE|OPpLVAL_INTRO),
/* LVREFSLICE */ (OPpLVAL_INTRO),
+ /* LVAVREF */ (OPpARG1_MASK),
};
OP_REFASSIGN = 379,
OP_LVREF = 380,
OP_LVREFSLICE = 381,
+ OP_LVAVREF = 382,
OP_max
} opcode;
-#define MAXO 382
+#define MAXO 383
#define OP_FREED MAXO
/* the OP_IS_* macros are optimized to a simple range check because
RETURN;
}
+PP(pp_lvavref)
+{
+ DIE(aTHX_ "Unimplemented");
+}
+
/*
* Local variables:
* c-indentation-style: bsd
PERL_CALLCONV OP *Perl_pp_lock(pTHX);
PERL_CALLCONV OP *Perl_pp_lslice(pTHX);
PERL_CALLCONV OP *Perl_pp_lt(pTHX);
+PERL_CALLCONV OP *Perl_pp_lvavref(pTHX);
PERL_CALLCONV OP *Perl_pp_lvref(pTHX);
PERL_CALLCONV OP *Perl_pp_lvrefslice(pTHX);
PERL_CALLCONV OP *Perl_pp_mapwhile(pTHX);
refassign lvalue ref assignment ck_refassign d2
lvref lvalue ref assignment ck_null d%
lvrefslice lvalue ref assignment ck_null d@
+lvavref lvalue array reference ck_null d%