diff options
| author | David Mitchell <davem@iabyn.com> | 2012-05-21 20:44:50 +0100 |
|---|---|---|
| committer | David Mitchell <davem@iabyn.com> | 2012-06-13 13:32:53 +0100 |
| commit | f067efbfa97c3658b1cf186884f09e38fcee1876 (patch) | |
| tree | de27dec10a993daa616ba691e3bacae956dc9a7b /embed.fnc | |
| parent | 495f47a5a58f41f475461921fbfb6566ffa94ee1 (diff) | |
| download | perl-f067efbfa97c3658b1cf186884f09e38fcee1876.tar.gz | |
S_regcppush/pop : don't save PL_reginput
currently, S_regcppush() pushes PL_reginput, then S_regcppop() pops its
value and returns it. However, all calls to S_regcppop() are currently in
void context, so nothing actually uses this value. So don't save it in the
first place.
Diffstat (limited to 'embed.fnc')
| -rw-r--r-- | embed.fnc | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -1997,7 +1997,7 @@ 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 |NN const regexp *rex|I32 parenfloor -Es |char* |regcppop |NN regexp *rex +Es |void |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 \ |