summaryrefslogtreecommitdiff
path: root/regcomp.c
diff options
context:
space:
mode:
authorKarl Williamson <khw@cpan.org>2015-01-05 15:30:42 -0700
committerKarl Williamson <khw@cpan.org>2015-01-06 15:05:26 -0700
commitf145dab8774784ae241116bcca6f213d0ea44ae1 (patch)
tree2f533611fbd1785517ffbce9acabe812078d18f2 /regcomp.c
parent25016d423e8dd5392c103ec57b66dd302362b2c1 (diff)
downloadperl-f145dab8774784ae241116bcca6f213d0ea44ae1.tar.gz
regcomp.c: Don't use general macro
The macro REGC is used to hide PASS1 behavior versus PASS2 behavior from the caller. But this is the last use of REGC, and it's only executed in PASS2, so it doesn't need the generality (and obscurity) that REGC provides.
Diffstat (limited to 'regcomp.c')
-rw-r--r--regcomp.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/regcomp.c b/regcomp.c
index 56e1a25978..c42c256f4d 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -6865,7 +6865,7 @@ Perl_re_op_compile(pTHX_ SV ** const patternp, int pat_count,
RExC_emit_bound = ri->program + RExC_size + 1;
pRExC_state->code_index = 0;
- REGC((U8)REG_MAGIC, (char*) RExC_emit++);
+ *((char*) RExC_emit++) = (char) REG_MAGIC;
if (reg(pRExC_state, 0, &flags,1) == NULL) {
ReREFCNT_dec(rx);
Perl_croak(aTHX_ "panic: reg returned NULL to re_op_compile for generation pass, flags=%#"UVxf"", (UV) flags);