diff options
| author | David Mitchell <davem@iabyn.com> | 2012-09-12 20:10:44 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2012-09-14 08:49:34 +0100 |
| commit | f73aaa438c3ca4e4c489cf8821275d72c192859d (patch) | |
| tree | d549aca91b8dcd55413a89283a85e4d6ddb5f9df /embed.fnc | |
| parent | a341814904f870ae50cc3ebaec8967e9fc103b66 (diff) | |
| download | perl-f73aaa438c3ca4e4c489cf8821275d72c192859d.tar.gz | |
eliminate PL_reginput
PL_reginput (which is actually #defined to PL_reg_state.re_state_reginput)
is, to all intents and purposes, state that is only used within
S_regmatch().
The only other places it is referenced are in S_regtry() and S_regrepeat(),
where it is used to pass the current match position back and forth between
the subs.
Do this passing instead via function args, and bingo! PL_reginput is now
just a local var of S_regmatch().
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -2006,9 +2006,9 @@ Es |U8 |regtail_study |NN struct RExC_state_t *pRExC_state \ #endif #if defined(PERL_IN_REGEXEC_C) -ERs |I32 |regmatch |NN regmatch_info *reginfo|NN regnode *prog -ERs |I32 |regrepeat |NN const regexp *prog|NN const regnode *p|I32 max|int depth -ERs |I32 |regtry |NN regmatch_info *reginfo|NN char **startpos +ERs |I32 |regmatch |NN regmatch_info *reginfo|NN char *startpos|NN regnode *prog +ERs |I32 |regrepeat |NN const regexp *prog|NN char **startposp|NN const regnode *p|I32 max|int depth +ERs |I32 |regtry |NN regmatch_info *reginfo|NN char **startposp ERs |bool |reginclass |NULLOK const regexp * const prog|NN const regnode * const n|NN const U8 * const p|NULLOK STRLEN *lenp\ |bool const do_utf8sv_is_utf8 Es |CHECKPOINT|regcppush |NN const regexp *rex|I32 parenfloor |