diff options
author | Karl Williamson <khw@cpan.org> | 2015-01-05 15:30:42 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2015-01-06 15:05:26 -0700 |
commit | f145dab8774784ae241116bcca6f213d0ea44ae1 (patch) | |
tree | 2f533611fbd1785517ffbce9acabe812078d18f2 /regcomp.c | |
parent | 25016d423e8dd5392c103ec57b66dd302362b2c1 (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |