From 9d85ccc14a0f8b8ae75e944f5d416fe22cddfe88 Mon Sep 17 00:00:00 2001 From: Yves Orton Date: Fri, 28 Oct 2022 13:20:54 +0200 Subject: dump.c - in op_dump show the hints and feature bits I used to 'FEATS' instead of 'FEATURES' so the values line up nicely. --- dump.c | 5 +++++ 1 file changed, 5 insertions(+) (limited to 'dump.c') diff --git a/dump.c b/dump.c index 8ce57cbed5..70d67e562a 100644 --- a/dump.c +++ b/dump.c @@ -1338,6 +1338,11 @@ S_do_op_dump_bar(pTHX_ I32 level, UV bar, PerlIO *file, const OP *o) generic_pv_escape( tmpsv, label, label_len, (label_flags & SVf_UTF8))); } + /* add hints and features if set */ + if (cCOPo->cop_hints) + S_opdump_indent(aTHX_ o, level, bar, file, "HINTS = %08x\n",cCOPo->cop_hints); + if (cCOPo->cop_features) + S_opdump_indent(aTHX_ o, level, bar, file, "FEATS = %08x\n",cCOPo->cop_features); S_opdump_indent(aTHX_ o, level, bar, file, "SEQ = %u\n", (unsigned int)cCOPo->cop_seq); -- cgit v1.2.1