diff options
author | Nicholas Clark <nick@ccl4.org> | 2007-03-26 21:40:12 +0000 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2007-03-26 21:40:12 +0000 |
commit | f8cc3bc6be850fbfb3161ff0957a723930f41e5b (patch) | |
tree | fe4a9b311760b16aac6e0ff182b9cc33786e812e /regexec.c | |
parent | 366e98c304f5509b9df74e815b2f963e08a26c78 (diff) | |
download | perl-f8cc3bc6be850fbfb3161ff0957a723930f41e5b.tar.gz |
Move the declaration of two variables into the only block that uses
them.
p4raw-id: //depot/perl@30766
Diffstat (limited to 'regexec.c')
-rw-r--r-- | regexec.c | 6 |
1 files changed, 2 insertions, 4 deletions
@@ -2148,8 +2148,6 @@ STATIC I32 /* 0 failure, 1 success */ S_regtry(pTHX_ regmatch_info *reginfo, char **startpos) { dVAR; - register I32 *sp; - register I32 *ep; CHECKPOINT lastcp; regexp *prog = reginfo->prog; RXi_GET_DECL(prog,progi); @@ -2259,9 +2257,9 @@ S_regtry(pTHX_ regmatch_info *reginfo, char **startpos) * on those tests seems to be returning null fields from matches. * --jhi */ #if 1 - sp = PL_regstartp; - ep = PL_regendp; if (prog->nparens) { + I32 *sp = PL_regstartp; + I32 *ep = PL_regendp; register I32 i; for (i = prog->nparens; i > (I32)*PL_reglastparen; i--) { *++sp = -1; |