From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Fri, 30 Jun 2006 12:56:59 +0000 (+0000)
Subject: Fix a couple of compilation warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d47053ebddc7ad9e077ef3549a5cfd970b0413f8;p=p5sagit%2Fp5-mst-13.2.git

Fix a couple of compilation warnings

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

diff --git a/regcomp.c b/regcomp.c
index e3f0ac6..4de5727 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -1878,9 +1878,11 @@ S_join_exact(pTHX_ RExC_state_t *pRExC_state, regnode *scan, I32 *min, U32 flags
     regnode *stop = scan;
     GET_RE_DEBUG_FLAGS_DECL;
 #else
+    PERL_UNUSED_ARG(depth);
+#endif
+#ifndef EXPERIMENTAL_INPLACESCAN
     PERL_UNUSED_ARG(flags);
     PERL_UNUSED_ARG(val);
-    PERL_UNUSED_ARG(depth);
 #endif
     DEBUG_PEEP("join",scan,depth);
     
@@ -1894,7 +1896,6 @@ S_join_exact(pTHX_ RExC_state_t *pRExC_state, regnode *scan, I32 *min, U32 flags
         if (OP(n) == TAIL || n > next)
             stringok = 0;
         if (PL_regkind[OP(n)] == NOTHING) {
-        
             DEBUG_PEEP("skip:",n,depth);
             NEXT_OFF(scan) += NEXT_OFF(n);
             next = n + NODE_STEP_REGNODE;
@@ -1925,17 +1926,17 @@ S_join_exact(pTHX_ RExC_state_t *pRExC_state, regnode *scan, I32 *min, U32 flags
             if (stopnow) break;
         }
 
-#ifdef  EXPERIMENTAL_INPLACESCAN
-        if (flags && !NEXT_OFF(n)) {
-            DEBUG_PEEP("atch",val,depth);            
-            if (reg_off_by_arg[OP(n)]) {
-	        ARG_SET(n, val - n);
-            }
-            else {
-	        NEXT_OFF(n) = val - n;
-            }
-            stopnow=1;
-        }            
+#ifdef EXPERIMENTAL_INPLACESCAN
+	if (flags && !NEXT_OFF(n)) {
+	    DEBUG_PEEP("atch", val, depth);
+	    if (reg_off_by_arg[OP(n)]) {
+		ARG_SET(n, val - n);
+	    }
+	    else {
+		NEXT_OFF(n) = val - n;
+	    }
+	    stopnow = 1;
+	}
 #endif
     }
     
diff --git a/toke.c b/toke.c
index 8dec0a7..5976732 100644
--- a/toke.c
+++ b/toke.c
@@ -6697,7 +6697,7 @@ S_pending_ident(pTHX)
 {
     dVAR;
     register char *d;
-    register I32 tmp = 0;
+    register PADOFFSET tmp = 0;
     /* pit holds the identifier we read and pending_ident is reset */
     char pit = PL_pending_ident;
     PL_pending_ident = 0;
@@ -11186,7 +11186,7 @@ S_scan_inputsymbol(pTHX_ char *start)
 	   filehandle
 	*/
 	if (*d == '$') {
-	    I32 tmp;
+	    PADOFFSET tmp;
 
 	    /* try to find it in the pad for this block, otherwise find
 	       add symbol table ops