Before filling the lookup hash for opcode names, pre-expand it.

We know the size needed (about 400 entries), so doing this saves several automatic resizes when populating it.
Perl · Aug 21, 2021 · 25c7a49 · 25c7a49
1 parent 03a62b1
commit 25c7a49
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 1 deletion.
diff --git a/ext/Opcode/Opcode.pm b/ext/Opcode/Opcode.pm
@@ -6,7 +6,7 @@ use strict;
 
 our($VERSION, @ISA, @EXPORT_OK);
 
-$VERSION = "1.53";
+$VERSION = "1.54";
 
 use Carp;
 use Exporter 'import';

diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs
@@ -55,6 +55,7 @@ op_names_init(pTHX)
     dMY_CXT;
 
     op_named_bits = newHV();
+    hv_ksplit(op_named_bits, PL_maxo);
     op_names = get_op_names();
     for(i=0; i < PL_maxo; ++i) {
 	SV * const sv = newSViv(i);