diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2012-07-26 18:21:02 -0700 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2012-09-15 22:45:03 -0700 |
| commit | ecf9c8b78fdc5245e639ddb2830e8e43cda480b9 (patch) | |
| tree | d17ac0ac0b8d120a1e27b229acdd06111950fe1d /regen | |
| parent | 10342479afca0484c66269733fcc2f4a1fbabbb7 (diff) | |
| download | perl-ecf9c8b78fdc5245e639ddb2830e8e43cda480b9.tar.gz | |
Add introcv op type
This will be used for introducing ‘my’ subs on scope entry, by turning
off the stale flag.
Diffstat (limited to 'regen')
| -rwxr-xr-x | regen/opcode.pl | 2 | ||||
| -rw-r--r-- | regen/opcodes | 1 |
2 files changed, 2 insertions, 1 deletions
diff --git a/regen/opcode.pl b/regen/opcode.pl index 2ef64ec59d..7401562dd5 100755 --- a/regen/opcode.pl +++ b/regen/opcode.pl @@ -44,7 +44,7 @@ while (<OPS>) { $args = '' unless defined $args; warn qq[Description "$desc" duplicates $seen{$desc}\n] - if $seen{$desc} and $key ne "transr"; + if $seen{$desc} and $key !~ "transr|introcv"; die qq[Opcode "$key" duplicates $seen{$key}\n] if $seen{$key}; die qq[Opcode "freed" is reserved for the slab allocator\n] if $key eq 'freed'; diff --git a/regen/opcodes b/regen/opcodes index 117566bad2..4bb41e504c 100644 --- a/regen/opcodes +++ b/regen/opcodes @@ -548,3 +548,4 @@ runcv __SUB__ ck_null s0 fc fc ck_fun fstu% S? padcv private subroutine ck_null d0 +introcv private subroutine ck_null d0 |