diff options
author | Yves Orton <demerphq@gmail.com> | 2023-03-08 08:57:36 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2023-03-18 21:00:54 +0800 |
commit | b27367cd9b0173682dfe824a2d1d8d70c6f538c0 (patch) | |
tree | f94e4222ca282f6e6138ffeb72ec0d59070c3114 | |
parent | 93f6f9654a81b66c47c07ca982e4c00558bd4159 (diff) | |
download | perl-b27367cd9b0173682dfe824a2d1d8d70c6f538c0.tar.gz |
regcomp_internal.h - make unused macros for deprecation warnings take category as parameter
we should have a deprecation category per type of deprecation
-rw-r--r-- | regcomp_internal.h | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/regcomp_internal.h b/regcomp_internal.h index ff428bce33..4c18f1bee6 100644 --- a/regcomp_internal.h +++ b/regcomp_internal.h @@ -1060,21 +1060,21 @@ static const scan_data_t zero_scan_data = { m REPORT_LOCATION, \ REPORT_LOCATION_ARGS(loc))) \ -#define vWARN_dep(loc, m) \ - _WARN_HELPER(loc, packWARN(WARN_DEPRECATED), \ - Perl_warner(aTHX_ packWARN(WARN_DEPRECATED), \ - m REPORT_LOCATION, \ +#define vWARN_dep(loc,category,m) \ + _WARN_HELPER(loc, packWARN(category), \ + Perl_warner(aTHX_ packWARN(category), \ + m REPORT_LOCATION, \ REPORT_LOCATION_ARGS(loc))) -#define ckWARNdep(loc,m) \ - _WARN_HELPER(loc, packWARN(WARN_DEPRECATED), \ - Perl_ck_warner_d(aTHX_ packWARN(WARN_DEPRECATED), \ - m REPORT_LOCATION, \ +#define ckWARNdep(loc,category,m) \ + _WARN_HELPER(loc, packWARN(category), \ + Perl_ck_warner_d(aTHX_ packWARN(category), \ + m REPORT_LOCATION, \ REPORT_LOCATION_ARGS(loc))) -#define ckWARNregdep(loc,m) \ - _WARN_HELPER(loc, packWARN2(WARN_DEPRECATED, WARN_REGEXP), \ - Perl_ck_warner_d(aTHX_ packWARN2(WARN_DEPRECATED, \ +#define ckWARNregdep(loc,category,m) \ + _WARN_HELPER(loc, packWARN2(category, WARN_REGEXP), \ + Perl_ck_warner_d(aTHX_ packWARN2(category, \ WARN_REGEXP), \ m REPORT_LOCATION, \ REPORT_LOCATION_ARGS(loc))) |