diff options
author | Nicholas Clark <nick@ccl4.org> | 2022-05-29 15:36:50 +0200 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-06-08 07:34:26 -0600 |
commit | a2440b84a096779de28d7a81fbd7f9a2fbf72bd6 (patch) | |
tree | 252892321a444d517e0af8aa28f76c82e7dc568e /ext/Opcode/Opcode.xs | |
parent | e6567a72c70327ad01f6eaea5d09b56f4c9ef22c (diff) | |
download | perl-a2440b84a096779de28d7a81fbd7f9a2fbf72bd6.tar.gz |
Opcode.xs now uses PL_op_name and PL_op_desc directly
This removes the last core use of the trivial accessor functions
get_op_names() and get_op_descs().
Diffstat (limited to 'ext/Opcode/Opcode.xs')
-rw-r--r-- | ext/Opcode/Opcode.xs | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index a0e706efde..bdd192f763 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -51,13 +51,13 @@ op_names_init(pTHX) { int i; STRLEN len; - char **op_names; + const char *const *op_names; U8 *bitmap; dMY_CXT; op_named_bits = newHV(); hv_ksplit(op_named_bits, PL_maxo); - op_names = get_op_names(); + op_names = PL_op_name; for(i=0; i < PL_maxo; ++i) { SV * const sv = newSViv(i); SvREADONLY_on(sv); @@ -371,7 +371,7 @@ PPCODE: STRLEN i; int j, myopcode; const char * const bitmap = SvPV(opset, len); - char **names = (desc) ? get_op_descs() : get_op_names(); + const char *const *names = (desc) ? PL_op_desc : PL_op_name; verify_opset(aTHX_ opset,1); for (myopcode=0, i=0; i < opset_len; i++) { @@ -461,7 +461,7 @@ PPCODE: int i; STRLEN len; SV **args; - char **op_desc = get_op_descs(); + const char *const *op_desc = PL_op_desc; /* copy args to a scratch area since we may push output values onto */ /* the stack faster than we read values off it if masks are used. */ |