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 /intrpvar.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 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/intrpvar.h b/intrpvar.h index 21fb933254..503d9d666f 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -172,7 +172,9 @@ PERLVARI(Irehash_seed_set, bool, FALSE) /* 582 hash initialized? */ PERLVARA(Icolors,6, char *) /* from regcomp.c */ PERLVARI(Ipeepp, peep_t, MEMBER_TO_FPTR(Perl_peep)) - /* Pointer to peephole optimizer */ + /* Pointer to per-sub peephole optimizer */ +PERLVARI(Irpeepp, peep_t, MEMBER_TO_FPTR(Perl_rpeep)) + /* Pointer to recursive peephole optimizer */ /* =for apidoc Amn|Perl_ophook_t|PL_opfreehook |