diff options
author | Zefram <zefram@fysh.org> | 2010-08-16 20:22:42 +0100 |
---|---|---|
committer | Florian Ragwitz <rafl@debian.org> | 2010-08-26 15:10:55 +0200 |
commit | 1a0a2ba99e0c0ff795f145aaf54fcf0c4a8f7478 (patch) | |
tree | f24669c95c6d89ac6f5277dac7f3518afc1cd5e1 /proto.h | |
parent | c35dcbe240980301d3462300f3b790ccfbe52c24 (diff) | |
download | perl-1a0a2ba99e0c0ff795f145aaf54fcf0c4a8f7478.tar.gz |
make recursive part of peephole optimiser hookable
New variable PL_rpeepp makes it possible for extensions to hook
the per-op-chain part of the peephole optimiser (which recurses into
side chains). The existing variable PL_peepp still allows hooking the
per-sub part of the peephole optimiser, maintaining perfect backward
compatibility.
Diffstat (limited to 'proto.h')
-rw-r--r-- | proto.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -2572,6 +2572,7 @@ STATIC void S_pad_reset(pTHX); #endif PERL_CALLCONV void Perl_pad_swipe(pTHX_ PADOFFSET po, bool refadjust); PERL_CALLCONV void Perl_peep(pTHX_ OP* o); +PERL_CALLCONV void Perl_rpeep(pTHX_ OP* o); PERL_CALLCONV PerlIO* Perl_start_glob(pTHX_ SV *tmpglob, IO *io) __attribute__nonnull__(pTHX_1) __attribute__nonnull__(pTHX_2); |