In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/956f044dc76d0c46975ad10574f2e86e410097a7?hp=d28cce60f6f99594ae15d5ad385d305f91867d9e>
- Log ----------------------------------------------------------------- commit 956f044dc76d0c46975ad10574f2e86e410097a7 Author: David Mitchell <[email protected]> Date: Mon Jan 26 12:17:41 2015 +0000 regen/op_private: update comment Since a flag's bit number has been changed, update the example with the changed bit number. ----------------------------------------------------------------------- Summary of changes: regen/op_private | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/regen/op_private b/regen/op_private index 9cb1206..c8c09d6 100644 --- a/regen/op_private +++ b/regen/op_private @@ -35,6 +35,7 @@ bit bit field. Here's a general example: addbits('aelem', 7 => qw(OPpLVAL_INTRO LVINTRO), + 6 => qw(OPpLVAL_DEFER LVDEFER), '4..5' => { mask_def => 'OPpDEREF', enum => [ qw( @@ -43,10 +44,9 @@ bit bit field. Here's a general example: 3 OPpDEREF_SV DREFSV )], }, - 6 => qw(OPpLVAL_DEFER LVDEFER), ); -Here for the op C<aelem>, bits 4 and 7 (bits are numbered 0..7) are +Here for the op C<aelem>, bits 6 and 7 (bits are numbered 0..7) are defined as single-bit flags. The first string following the bit number is the define name that gets emitted in F<opcode.h>, and the second string is the label, which will be displayed by F<Concise.pm> and Perl_do_op_dump() -- Perl5 Master Repository
