diff options
Diffstat (limited to 'ext/XS-APItest/APItest.xs')
| -rw-r--r-- | ext/XS-APItest/APItest.xs | 47 |
1 files changed, 0 insertions, 47 deletions
diff --git a/ext/XS-APItest/APItest.xs b/ext/XS-APItest/APItest.xs index 8dce9db805..23ce3edea5 100644 --- a/ext/XS-APItest/APItest.xs +++ b/ext/XS-APItest/APItest.xs @@ -17,8 +17,6 @@ typedef struct { AV *cscav; AV *bhkav; bool bhk_record; - peep_t orig_peep; - AV *peep_record; } my_cxt_t; START_MY_CXT @@ -329,23 +327,6 @@ blockhook_test_eval(pTHX_ OP *const o) STATIC BHK bhk_csc, bhk_test; -STATIC void -my_peep (pTHX_ OP *o, peep_next_t *next_peep) -{ - dMY_CXT; - - if (!o) - return; - - CALL_FPTR(MY_CXT.orig_peep)(aTHX_ o, next_peep); - - for (; o; o = o->op_next) { - if (o->op_type == OP_CONST && cSVOPx_sv(o) && SvPOK(cSVOPx_sv(o))) { - av_push(MY_CXT.peep_record, newSVsv(cSVOPx_sv(o))); - } - } -} - #include "const-c.inc" MODULE = XS::APItest:Hash PACKAGE = XS::APItest::Hash @@ -742,8 +723,6 @@ BOOT: BhkENTRY_set(&bhk_csc, start, blockhook_csc_start); BhkENTRY_set(&bhk_csc, pre_end, blockhook_csc_pre_end); Perl_blockhook_register(aTHX_ &bhk_csc); - - MY_CXT.peep_record = newAV(); } void @@ -756,7 +735,6 @@ CLONE(...) MY_CXT.cscav = NULL; MY_CXT.bhkav = get_av("XS::APItest::bhkav", GV_ADDMULTI); MY_CXT.bhk_record = 0; - MY_CXT.peep_record = newAV(); void print_double(val) @@ -1136,31 +1114,6 @@ bhk_record(bool on) if (on) av_clear(MY_CXT.bhkav); -void -peep_enable () - PREINIT: - dMY_CXT; - CODE: - av_clear(MY_CXT.peep_record); - MY_CXT.orig_peep = PL_peepp; - PL_peepp = my_peep; - -AV * -peep_record () - PREINIT: - dMY_CXT; - CODE: - RETVAL = MY_CXT.peep_record; - OUTPUT: - RETVAL - -void -peep_record_clear () - PREINIT: - dMY_CXT; - CODE: - av_clear(MY_CXT.peep_record); - BOOT: { HV* stash; |