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 /perlapi.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 'perlapi.h')
| -rw-r--r-- | perlapi.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -552,6 +552,8 @@ END_EXTERN_C #define PL_restartjmpenv (*Perl_Irestartjmpenv_ptr(aTHX)) #undef PL_restartop #define PL_restartop (*Perl_Irestartop_ptr(aTHX)) +#undef PL_rpeepp +#define PL_rpeepp (*Perl_Irpeepp_ptr(aTHX)) #undef PL_rs #define PL_rs (*Perl_Irs_ptr(aTHX)) #undef PL_runops |