diff options
author | Nicholas Clark <nick@ccl4.org> | 2008-01-02 13:07:16 +0000 |
---|---|---|
committer | David Mitchell <davem@iabyn.com> | 2009-03-06 00:41:25 +0000 |
commit | 23f54882e6e17f699861808815ad176eb9f24ff8 (patch) | |
tree | 1d239d80bfd3f9a6efdd1bfe399750b1dd82369d /regcomp.c | |
parent | d5d306195fd3afa9e75390bbf94c90f9d507c827 (diff) | |
download | perl-23f54882e6e17f699861808815ad176eb9f24ff8.tar.gz |
Convert some "regexp" and "struct regexp" to REGEXP where they are
currently equivalent but will be wrong once the equivalence vanishes.
p4raw-id: //depot/perl@32803
(cherry-picked from commit 84679df57ca0626f7fb35fc3038e2e142b97f8a4)
Diffstat (limited to 'regcomp.c')
-rw-r--r-- | regcomp.c | 10 |
1 files changed, 5 insertions, 5 deletions
@@ -9200,7 +9200,7 @@ Perl_re_intuit_string(pTHX_ REGEXP * const prog) */ #ifndef PERL_IN_XSUB_RE void -Perl_pregfree(pTHX_ struct regexp *r) +Perl_pregfree(pTHX_ REGEXP *r) { dVAR; GET_RE_DEBUG_FLAGS_DECL; @@ -9253,8 +9253,8 @@ Perl_pregfree(pTHX_ struct regexp *r) */ -regexp * -Perl_reg_temp_copy (pTHX_ struct regexp *r) { +REGEXP * +Perl_reg_temp_copy (pTHX_ REGEXP *r) { regexp *ret; register const I32 npar = r->nparens+1; (void)ReREFCNT_inc(r); @@ -9659,7 +9659,7 @@ Perl_regdupe_internal(pTHX_ REGEXP * const r, CLONE_PARAMS *param) char * Perl_reg_stringify(pTHX_ MAGIC *mg, STRLEN *lp, U32 *flags, I32 *haseval ) { dVAR; - const regexp * const re = (regexp *)mg->mg_obj; + const REGEXP * const re = (REGEXP *)mg->mg_obj; if (haseval) *haseval = RX_SEEN_EVALS(re); if (flags) @@ -9780,7 +9780,7 @@ static void clear_re(pTHX_ void *r) { dVAR; - ReREFCNT_dec((regexp *)r); + ReREFCNT_dec((REGEXP *)r); } #ifdef DEBUGGING |