diff options
| author | Richard Soderberg <p5-authors@crystalflame.net> | 2001-06-21 00:01:22 -0700 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-06-21 13:12:54 +0000 |
| commit | aaa362c4c9a4b61a85f6a240dc8826e53958f6da (patch) | |
| tree | 07d118556847421b720394f89d0c87824892ffac /ext/B | |
| parent | 4c8a4e58b37238aa7f23df050ac909444f7e45a6 (diff) | |
| download | perl-aaa362c4c9a4b61a85f6a240dc8826e53958f6da.tar.gz | |
Step 2: Use the new PM_GETRE/SETRE macros everywhere.
Message-ID: <Pine.LNX.4.21.0106210657400.1693-100000@oregonnet.com>
p4raw-id: //depot/perl@10780
Diffstat (limited to 'ext/B')
| -rw-r--r-- | ext/B/B.xs | 4 | ||||
| -rw-r--r-- | ext/B/B/C.pm | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/ext/B/B.xs b/ext/B/B.xs index ea4f620862..df53d9a229 100644 --- a/ext/B/B.xs +++ b/ext/B/B.xs @@ -667,7 +667,7 @@ LISTOP_children(o) #define PMOP_pmreplroot(o) o->op_pmreplroot #define PMOP_pmreplstart(o) o->op_pmreplstart #define PMOP_pmnext(o) o->op_pmnext -#define PMOP_pmregexp(o) o->op_pmregexp +#define PMOP_pmregexp(o) PM_GETRE(o) #define PMOP_pmflags(o) o->op_pmflags #define PMOP_pmpermflags(o) o->op_pmpermflags @@ -712,7 +712,7 @@ PMOP_precomp(o) REGEXP * rx = NO_INIT CODE: ST(0) = sv_newmortal(); - rx = o->op_pmregexp; + rx = PM_GETRE(o); if (rx) sv_setpvn(ST(0), rx->precomp, rx->prelen); diff --git a/ext/B/B/C.pm b/ext/B/B/C.pm index 4befe7988b..1f77a2c212 100644 --- a/ext/B/B/C.pm +++ b/ext/B/B/C.pm @@ -362,7 +362,7 @@ sub B::PMOP::save { if (defined($re)) { my $resym = sprintf("re%d", $re_index++); $decl->add(sprintf("static char *$resym = %s;", cstring($re))); - $init->add(sprintf("$pm.op_pmregexp = pregcomp($resym, $resym + %u, &$pm);", + $init->add(sprintf("PM_SETRE($pm,pregcomp($resym, $resym + %u, &$pm));", length($re))); } if ($gvsym) { |