diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-02-27 18:31:51 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-02-27 19:21:33 -0700 |
| commit | 2335b3d39eb70759d992779a5e8e11443648e5dd (patch) | |
| tree | 37f8e6e5df6cdbe7b3210dc690b3bcdfbfe26993 /regcomp.c | |
| parent | 537429566e5149c6661a619b1f9a77e25ba30b8f (diff) | |
| download | perl-2335b3d39eb70759d992779a5e8e11443648e5dd.tar.gz | |
regcomp.c: Add deprecation macro with extra param
Diffstat (limited to 'regcomp.c')
| -rw-r--r-- | regcomp.c | 7 |
1 files changed, 7 insertions, 0 deletions
@@ -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, \ |