From 2335b3d39eb70759d992779a5e8e11443648e5dd Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Sun, 27 Feb 2011 18:31:51 -0700 Subject: [PATCH] regcomp.c: Add deprecation macro with extra param --- regcomp.c | 7 +++++++ 1 file changed, 7 insertions(+) diff --git a/regcomp.c b/regcomp.c index 67e5d55..d767265 100644 --- a/regcomp.c +++ b/regcomp.c @@ -509,6 +509,13 @@ static const scan_data_t zero_scan_data = (int)offset, RExC_precomp, RExC_precomp + offset); \ } STMT_END +#define ckWARN2regdep(loc,m, a1) STMT_START { \ + const IV offset = loc - RExC_precomp; \ + Perl_ck_warner_d(aTHX_ packWARN2(WARN_DEPRECATED, WARN_REGEXP), \ + m REPORT_LOCATION, \ + a1, (int)offset, RExC_precomp, RExC_precomp + offset); \ +} STMT_END + #define ckWARN2reg(loc, m, a1) STMT_START { \ const IV offset = loc - RExC_precomp; \ Perl_ck_warner(aTHX_ packWARN(WARN_REGEXP), m REPORT_LOCATION, \ -- 2.7.4