regen/embed.pl - change _aDEPTH and _pDEPTH to not have a leading underbar

The leading underbar is reserved by C.

These defines are debugging only "recursion" depth related counters
injected into the function macro wrappers when a function is marked as
'W', much the same way that aTHX_ and pTHX_ are when building under
threaded builds. The functions are expected to incremented the depth
parameter themselves. Note that "recursion" is quoted above because in
practice currently they are only used by the regex engine when recursing
virtually, and they do not relate to true C stack related recursion.
(But they could be used for tracking C level recursion under debugging
if someone needed it.)

1 files changed, 4 insertions, 4 deletions

diff --git a/proto.h b/proto.h
index 26ce644b3a..aeba4521fa 100644
--- a/proto.h
+++ b/proto.h
@@ -8818,17 +8818,17 @@ S_reg_check_named_buff_matched(const regexp *rex, const regnode *scan)
         assert(rex); assert(scan)
 
 STATIC void
-S_regcp_restore(pTHX_ regexp *rex, I32 ix, U32 *maxopenparen_p _pDEPTH);
+S_regcp_restore(pTHX_ regexp *rex, I32 ix, U32 *maxopenparen_p comma_pDEPTH);
 # define PERL_ARGS_ASSERT_REGCP_RESTORE         \
         assert(rex); assert(maxopenparen_p)
 
 STATIC void
-S_regcppop(pTHX_ regexp *rex, U32 *maxopenparen_p _pDEPTH);
+S_regcppop(pTHX_ regexp *rex, U32 *maxopenparen_p comma_pDEPTH);
 # define PERL_ARGS_ASSERT_REGCPPOP              \
         assert(rex); assert(maxopenparen_p)
 
 STATIC CHECKPOINT
-S_regcppush(pTHX_ const regexp *rex, I32 parenfloor, U32 maxopenparen _pDEPTH);
+S_regcppush(pTHX_ const regexp *rex, I32 parenfloor, U32 maxopenparen comma_pDEPTH);
 # define PERL_ARGS_ASSERT_REGCPPUSH             \
         assert(rex)
 
@@ -8863,7 +8863,7 @@ S_regmatch(pTHX_ regmatch_info *reginfo, char *startpos, regnode *prog)
         assert(reginfo); assert(startpos); assert(prog)
 
 STATIC I32
-S_regrepeat(pTHX_ regexp *prog, char **startposp, const regnode *p, char *loceol, regmatch_info * const reginfo, I32 max _pDEPTH)
+S_regrepeat(pTHX_ regexp *prog, char **startposp, const regnode *p, char *loceol, regmatch_info * const reginfo, I32 max comma_pDEPTH)
         __attribute__warn_unused_result__;
 # define PERL_ARGS_ASSERT_REGREPEAT             \
         assert(prog); assert(startposp); assert(p); assert(loceol); assert(reginfo); \