summaryrefslogtreecommitdiff
path: root/regexec.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2007-03-26 21:40:12 +0000
committerNicholas Clark <nick@ccl4.org>2007-03-26 21:40:12 +0000
commitf8cc3bc6be850fbfb3161ff0957a723930f41e5b (patch)
treefe4a9b311760b16aac6e0ff182b9cc33786e812e /regexec.c
parent366e98c304f5509b9df74e815b2f963e08a26c78 (diff)
downloadperl-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.c6
1 files changed, 2 insertions, 4 deletions
diff --git a/regexec.c b/regexec.c
index e57a336287..e382a2a5e6 100644
--- a/regexec.c
+++ b/regexec.c
@@ -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;