diff options
| author | David Mitchell <davem@iabyn.com> | 2016-09-27 11:52:07 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2016-09-27 12:01:32 +0100 |
| commit | e9fb18e45b1f91aa054cc8f7722759bb3d9bdf8e (patch) | |
| tree | 94b61f7c35310b12ef3706a5e39c071ceeb29e90 /regen | |
| parent | e1e26374b6830fb0b701a313db8784720200d0b5 (diff) | |
| download | perl-e9fb18e45b1f91aa054cc8f7722759bb3d9bdf8e.tar.gz | |
padrange, aelemfast: use label for private bits
Change the output of Concise etc:
$ perl -MO=Concise -e'my (@a,$b,$c); $a[5];'
from:
3 <0> padrange[@a:1,2; $b:1,2; $c:1,2] vM/LVINTRO,3
...
5 <0> aelemfast_lex[@a:1,2] sR/5
to:
3 <0> padrange[@a:1,2; $b:1,2; $c:1,2] vM/LVINTRO,range=3
...
5 <0> aelemfast_lex[@a:1,2] sR/key=5
See http://nntp.perl.org/group/perl.perl5.porters/220208.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/op_private | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/regen/op_private b/regen/op_private index b74ff2f2f9..4adedbf75e 100644 --- a/regen/op_private +++ b/regen/op_private @@ -593,7 +593,7 @@ addbits('substr', 4 => qw(OPpSUBSTR_REPL_FIRST REPL1ST)); addbits('padrange', # bits 0..6 hold target range '0..6' => { - label => '-', + label => 'range', mask_def => 'OPpPADRANGE_COUNTMASK', bitcount_def => 'OPpPADRANGE_COUNTSHIFT', } @@ -605,7 +605,7 @@ addbits('padrange', for (qw(aelemfast aelemfast_lex)) { addbits($_, '0..7' => { - label => '-', + label => 'key', } ); } |