diff options
| author | David Mitchell <davem@iabyn.com> | 2012-05-15 12:55:22 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2012-06-13 13:32:52 +0100 |
| commit | b93070ed2e35b0430327cc866a4fcf4042014513 (patch) | |
| tree | b4f5b10e08c3596add6e6ab1ba5ebe8e7a8da9fc /embed.fnc | |
| parent | f8ff62a0b7c5ec858ae67e3f79488621e8f03107 (diff) | |
| download | perl-b93070ed2e35b0430327cc866a4fcf4042014513.tar.gz | |
eliminate PL_reglast(close)?paren, PL_regoffs
eliminate the three vars
PL_reglastcloseparen
PL_reglastparen
PL_regoffs
(which are actually aliases to PL_reg_state struct elements).
These three vars always point to the corresponding fields within the
currently executing regex; so just access those fields directly instead.
This makes switching between regexes with (??{}) simpler: just update
rex, and everything automatically references the new fields.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -1996,8 +1996,8 @@ 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 |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 |I32 parenfloor -Es |char* |regcppop |NN const regexp *rex +Es |CHECKPOINT|regcppush |NN const regexp *rex|I32 parenfloor +Es |char* |regcppop |NN regexp *rex ERsn |U8* |reghop3 |NN U8 *s|I32 off|NN const U8 *lim ERsM |SV* |core_regclass_swash|NULLOK const regexp *prog \ |NN const struct regnode *node|bool doinit \ |