From: Nicholas Clark <nick@ccl4.org>
Date: Mon, 26 Mar 2007 21:40:12 +0000 (+0000)
Subject: Move the declaration of two variables into the only block that uses
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=f8cc3bc6be850fbfb3161ff0957a723930f41e5b;p=p5sagit%2Fp5-mst-13.2.git

Move the declaration of two variables into the only block that uses
them.

p4raw-id: //depot/perl@30766
---

diff --git a/regexec.c b/regexec.c
index e57a336..e382a2a 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;