In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/00fdeebdcb01b690b97865debb8935dcca8b8218?hp=2a403855670ae8592c5a3ca4396e6e909a4fc593>
- Log ----------------------------------------------------------------- commit 00fdeebdcb01b690b97865debb8935dcca8b8218 Author: Tony Cook <[email protected]> Date: Thu Jan 29 10:29:05 2015 +1100 bump $Opcode::VERSION to 1.32 M ext/Opcode/Opcode.pm commit c5abc2c9ea98df41b36f74e551876c226f9f4b4d Author: Daniel Dragan <[email protected]> Date: Tue Jan 20 00:16:57 2015 -0500 comment out dead code in Opcode:: opcode_debug has never had an API to turn it on/set it to non-0 since Opcode::'s initial commit 6badd1a5d1 in 5.003001. Making opcode_debug a constant allows the CC to constant fold away the code, the warn string literals, and makes the my_cxt_t struct slightly smaller. Dont remove the code entirely since someone might find it useful one day. M ext/Opcode/Opcode.xs ----------------------------------------------------------------------- Summary of changes: ext/Opcode/Opcode.pm | 2 +- ext/Opcode/Opcode.xs | 11 +++++++++-- 2 files changed, 10 insertions(+), 3 deletions(-) diff --git a/ext/Opcode/Opcode.pm b/ext/Opcode/Opcode.pm index b2a75d3..925b4ab 100644 --- a/ext/Opcode/Opcode.pm +++ b/ext/Opcode/Opcode.pm @@ -6,7 +6,7 @@ use strict; our($VERSION, @ISA, @EXPORT_OK); -$VERSION = "1.31"; +$VERSION = "1.32"; use Carp; use Exporter (); diff --git a/ext/Opcode/Opcode.xs b/ext/Opcode/Opcode.xs index 3b6d275..c1170e9 100644 --- a/ext/Opcode/Opcode.xs +++ b/ext/Opcode/Opcode.xs @@ -13,7 +13,9 @@ typedef struct { HV * x_op_named_bits; /* cache shared for whole process */ SV * x_opset_all; /* mask with all bits set */ IV x_opset_len; /* length of opmasks in bytes */ - int x_opcode_debug; +#if 0 + int x_opcode_debug; /* unused warn() emitting debugging code */ +#endif } my_cxt_t; START_MY_CXT @@ -21,7 +23,12 @@ START_MY_CXT #define op_named_bits (MY_CXT.x_op_named_bits) #define opset_all (MY_CXT.x_opset_all) #define opset_len (MY_CXT.x_opset_len) -#define opcode_debug (MY_CXT.x_opcode_debug) +#if 0 +# define opcode_debug (MY_CXT.x_opcode_debug) +#else + /* no API to turn this on at runtime, so constant fold the code away */ +# define opcode_debug 0 +#endif static SV *new_opset (pTHX_ SV *old_opset); static int verify_opset (pTHX_ SV *opset, int fatal); -- Perl5 Master Repository
