diff options
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 7401562dd5..a081c64784 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 !~ "transr|introcv"; + if $seen{$desc} and $key !~ "transr|(?:intro|clone)cv"; 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 4bb41e504c..1ab82de463 100644 --- a/regen/opcodes +++ b/regen/opcodes @@ -549,3 +549,4 @@ fc fc ck_fun fstu% S? padcv private subroutine ck_null d0 introcv private subroutine ck_null d0 +clonecv private subroutine ck_null d0 |