Fix infinite recursion with perl 5.17.[12]

[perl/modules/re-engine-Hooks.git] / re_defs.h

diff --git a/re_defs.h b/re_defs.h
index f9510b8d216e01e820ef4b02ad618b2caaf4f0fc..d51eeb8b9db73fbd2642eaf2f54cb4e65b0337e9 100644 (file)
--- a/re_defs.h
+++ b/re_defs.h
@@ -1,8 +1,10 @@
+EXTERN_C const struct regexp_engine reh_regexp_engine;
+
 EXTERN_C void reh_call_comp_begin_hook(pTHX_ regexp *);
-EXTERN_C void reh_call_comp_hook(pTHX_ regexp *, regnode *);
-EXTERN_C void reh_call_exec_hook(pTHX_ regexp *, regnode *, regmatch_info *, regmatch_state *);
+EXTERN_C void reh_call_comp_node_hook(pTHX_ regexp *, regnode *);
+EXTERN_C void reh_call_exec_node_hook(pTHX_ regexp *, regnode *, regmatch_info *, regmatch_state *);
 
-#define REH_CALL_COMP_BEGIN_HOOK(a)       reh_call_comp_begin_hook(aTHX_ (a))
-#define REH_CALL_REGCOMP_HOOK(a, b)       reh_call_comp_hook(aTHX_ (a), (b))
-#define REH_CALL_REGEXEC_HOOK(a, b, c, d) reh_call_exec_hook(aTHX_ (a), (b), (c), (d))
+#define REH_CALL_COMP_BEGIN_HOOK(a)         reh_call_comp_begin_hook(aTHX_ (a))
+#define REH_CALL_COMP_NODE_HOOK(a, b)       reh_call_comp_node_hook(aTHX_ (a), (b))
+#define REH_CALL_EXEC_NODE_HOOK(a, b, c, d) reh_call_exec_node_hook(aTHX_ (a), (b), (c), (d))