]> git.vpit.fr Git - perl/modules/re-engine-Hooks.git/blob - re_defs.h
Fix infinite recursion with perl 5.17.[12]
[perl/modules/re-engine-Hooks.git] / re_defs.h
1 EXTERN_C const struct regexp_engine reh_regexp_engine;
2
3 EXTERN_C void reh_call_comp_begin_hook(pTHX_ regexp *);
4 EXTERN_C void reh_call_comp_node_hook(pTHX_ regexp *, regnode *);
5 EXTERN_C void reh_call_exec_node_hook(pTHX_ regexp *, regnode *, regmatch_info *, regmatch_state *);
6
7 #define REH_CALL_COMP_BEGIN_HOOK(a)         reh_call_comp_begin_hook(aTHX_ (a))
8 #define REH_CALL_COMP_NODE_HOOK(a, b)       reh_call_comp_node_hook(aTHX_ (a), (b))
9 #define REH_CALL_EXEC_NODE_HOOK(a, b, c, d) reh_call_exec_node_hook(aTHX_ (a), (b), (c), (d))
10