Removing /*SUPPRESS xxx*/

Message-ID: <20050616141342.GA22188@petdance.com>

p4raw-id: //depot/perl@24871

12 files changed, 10 insertions, 45 deletions

diff --git a/av.c b/av.c
index 70ed1867f0..7a3e44fd22 100644
--- a/av.c
+++ b/av.c
@@ -445,7 +445,6 @@ Perl_av_clear(pTHX_ register AV *av)
 #endif
     if (!av)
 	return;
-    /*SUPPRESS 560*/
 
     if (SvREADONLY(av))
 	Perl_croak(aTHX_ PL_no_modify);
@@ -489,7 +488,6 @@ Perl_av_undef(pTHX_ register AV *av)
 {
     if (!av)
 	return;
-    /*SUPPRESS 560*/
 
     /* Give any tie a chance to cleanup first */
     if (SvTIED_mg((SV*)av, PERL_MAGIC_tied)) 
diff --git a/doio.c b/doio.c
index cafa43566a..3a0bad0ffc 100644
--- a/doio.c
+++ b/doio.c
@@ -213,7 +213,6 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 	SAVEFREEPV(type);
 
         /* Lose leading and trailing white space */
-        /*SUPPRESS 530*/
         for (; isSPACE(*type); type++) ;
         while (tend > type && isSPACE(tend[-1]))
 	    *--tend = '\0';
@@ -253,7 +252,6 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 		}
 		type++;
 	    }
-	    /*SUPPRESS 530*/
 	    for (type++; isSPACE(*type); type++) ;
 	    if (!num_svs) {
 		name = type;
@@ -341,7 +339,6 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 		    if (num_svs > 1) {
 			Perl_croak(aTHX_ "More than one argument to '%c&' open",IoTYPE(io));
 		    }
-		    /*SUPPRESS 530*/
 		    for (; isSPACE(*type); type++) ;
 		    if (num_svs && (SvIOK(*svp) || (SvPOK(*svp) && looks_like_number(*svp)))) {
 			fd = SvUV(*svp);
@@ -418,10 +415,8 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 		}
 	    } /* & */
 	    else {
-		/*SUPPRESS 530*/
 		for (; isSPACE(*type); type++) ;
 		if (*type == IoTYPE_STD && (!type[1] || isSPACE(type[1]) || type[1] == ':')) {
-		    /*SUPPRESS 530*/
 		    type++;
 		    fp = PerlIO_stdout();
 		    IoTYPE(io) = IoTYPE_STD;
@@ -443,7 +438,6 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 	       goto unknown_open_mode;
 	} /* IoTYPE_WRONLY */
 	else if (*type == IoTYPE_RDONLY) {
-	    /*SUPPRESS 530*/
 	    for (type++; isSPACE(*type); type++) ;
 	    mode[0] = 'r';
 #ifdef HAS_STRLCAT
@@ -461,7 +455,6 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 		goto duplicity;
 	    }
 	    if (*type == IoTYPE_STD && (!type[1] || isSPACE(type[1]) || type[1] == ':')) {
-		/*SUPPRESS 530*/
 		type++;
 		fp = PerlIO_stdin();
 		IoTYPE(io) = IoTYPE_STD;
@@ -491,8 +484,8 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 		*--tend = '\0';
 		while (tend > type && isSPACE(tend[-1]))
 		    *--tend = '\0';
-		/*SUPPRESS 530*/
-		for (; isSPACE(*type); type++) ;
+		for (; isSPACE(*type); type++)
+		    ;
 		name = type;
 	        len  = tend-type;
 	    }
@@ -541,8 +534,8 @@ Perl_do_openn(pTHX_ GV *gv, register char *name, I32 len, int as_raw,
 		goto unknown_open_mode;
 	    name = type;
 	    IoTYPE(io) = IoTYPE_RDONLY;
-	    /*SUPPRESS 530*/
-	    for (; isSPACE(*name); name++) ;
+	    for (; isSPACE(*name); name++)
+		;
 	    mode[0] = 'r';
 
 #ifdef HAS_STRLCAT
diff --git a/doop.c b/doop.c
index 73ccdcdf96..8d23a3148e 100644
--- a/doop.c
+++ b/doop.c
@@ -954,7 +954,6 @@ Perl_do_chop(pTHX_ register SV *astr, register SV *sv)
         HV* hv = (HV*)sv;
 	HE* entry;
         (void)hv_iterinit(hv);
-        /*SUPPRESS 560*/
         while ((entry = hv_iternext(hv)))
             do_chop(astr,hv_iterval(hv,entry));
         return;
@@ -1031,7 +1030,6 @@ Perl_do_chomp(pTHX_ register SV *sv)
         HV* hv = (HV*)sv;
 	HE* entry;
         (void)hv_iterinit(hv);
-        /*SUPPRESS 560*/
         while ((entry = hv_iternext(hv)))
             count += do_chomp(hv_iterval(hv,entry));
         return count;
@@ -1379,7 +1377,6 @@ Perl_do_kv(pTHX)
 	    i = HvKEYS(keys);
 	else {
 	    i = 0;
-	    /*SUPPRESS 560*/
 	    while (hv_iternext(keys)) i++;
 	}
 	PUSHi( i );
diff --git a/perl.c b/perl.c
index 7cb4fdfaf6..62b128aa2f 100644
--- a/perl.c
+++ b/perl.c
@@ -2654,7 +2654,6 @@ Perl_moreswitches(pTHX_ char *s)
 	           "Recompile perl with -DDEBUGGING to use -D switch (did you mean -d ?)\n");
 	for (s++; isALNUM(*s); s++) ;
 #endif
-	/*SUPPRESS 530*/
 	return s;
     }	
     case 'h':
@@ -2670,8 +2669,8 @@ Perl_moreswitches(pTHX_ char *s)
 	}
 #endif /* __CYGWIN__ */
 	PL_inplace = savepv(s+1);
-	/*SUPPRESS 530*/
-	for (s = PL_inplace; *s && !isSPACE(*s); s++) ;
+	for (s = PL_inplace; *s && !isSPACE(*s); s++)
+	    ;
 	if (*s) {
 	    *s++ = '\0';
 	    if (*s == '-')	/* Additional switches on #! line. */
@@ -3842,7 +3841,6 @@ S_find_beginning(pTHX)
 		while (isDIGIT(s2[-1]) || s2[-1] == '-' || s2[-1] == '.'
 		       || s2[-1] == '_') s2--;
 		if (strnEQ(s2-4,"perl",4))
-		    /*SUPPRESS 530*/
 		    while ((s = moreswitches(s)))
 			;
 	    }
diff --git a/pp.c b/pp.c
index ae75edfb31..5ebea62a7b 100644
--- a/pp.c
+++ b/pp.c
@@ -4640,8 +4640,8 @@ PP(pp_split)
     }
     else if (rx->precomp[0] == '^' && rx->precomp[1] == '\0') {
 	while (--limit) {
-	    /*SUPPRESS 530*/
-	    for (m = s; m < strend && *m != '\n'; m++) ;
+	    for (m = s; m < strend && *m != '\n'; m++)
+		;
 	    m++;
 	    if (m >= strend)
 		break;
@@ -4665,8 +4665,8 @@ PP(pp_split)
 	if (len == 1 && !(rx->reganch & ROPT_UTF8) && !tail) {
 	    char c = *SvPV_nolen_const(csv);
 	    while (--limit) {
-		/*SUPPRESS 530*/
-		for (m = s; m < strend && *m != c; m++) ;
+		for (m = s; m < strend && *m != c; m++)
+		    ;
 		if (m >= strend)
 		    break;
 		dstr = newSVpvn(s, m-s);
diff --git a/pp_hot.c b/pp_hot.c
index 04becac90f..bd61e40217 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -971,7 +971,6 @@ PP(pp_aassign)
     if (PL_op->op_private & (OPpASSIGN_COMMON)) {
 	EXTEND_MORTAL(lastrelem - firstrelem + 1);
 	for (relem = firstrelem; relem <= lastrelem; relem++) {
-	    /*SUPPRESS 560*/
 	    if ((sv = *relem)) {
 		TAINT_NOT;	/* Each item is independent */
 		*relem = sv_mortalcopy(sv);
@@ -1301,7 +1300,6 @@ play_it_again:
 	EXTEND_MORTAL(nparens + i);
 	for (i = !i; i <= nparens; i++) {
 	    PUSHs(sv_newmortal());
-	    /*SUPPRESS 560*/
 	    if ((rx->startp[i] != -1) && rx->endp[i] != -1 ) {
 		const I32 len = rx->endp[i] - rx->startp[i];
 		s = rx->startp[i] + truebase;
@@ -2113,7 +2111,6 @@ PP(pp_subst)
 		*m = '\0';
 		SvCUR_set(TARG, m - s);
 	    }
-	    /*SUPPRESS 560*/
 	    else if ((i = m - s)) {	/* faster from front */
 		d -= clen;
 		m = d;
@@ -2142,7 +2139,6 @@ PP(pp_subst)
 		    DIE(aTHX_ "Substitution loop");
 		rxtainted |= RX_MATCH_TAINTED(rx);
 		m = rx->startp[0] + orig;
-		/*SUPPRESS 560*/
 		if ((i = m - s)) {
 		    if (s != d)
 			Move(s, d, i, char);
diff --git a/pp_sys.c b/pp_sys.c
index 4e2b412968..68f72271ac 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -342,7 +342,6 @@ PP(pp_backtick)
 	if (gimme == G_VOID) {
 	    char tmpbuf[256];
 	    while (PerlIO_read(fp, tmpbuf, sizeof tmpbuf) > 0)
-		/*SUPPRESS 530*/
 		;
 	}
 	else if (gimme == G_SCALAR) {
@@ -351,7 +350,6 @@ PP(pp_backtick)
 	    PL_rs = &PL_sv_undef;
 	    sv_setpvn(TARG, "", 0);	/* note that this preserves previous buffer */
 	    while (sv_gets(TARG, fp, SvCUR(TARG)) != Nullch)
-		/*SUPPRESS 530*/
 		;
 	    LEAVE;
 	    XPUSHs(TARG);
@@ -4070,7 +4068,6 @@ PP(pp_fork)
     if (childpid < 0)
 	RETSETUNDEF;
     if (!childpid) {
-	/*SUPPRESS 560*/
 	if ((tmpgv = gv_fetchpv("$", TRUE, SVt_PV))) {
             SvREADONLY_off(GvSV(tmpgv));
 	    sv_setiv(GvSV(tmpgv), (IV)PerlProc_getpid());
diff --git a/regcomp.c b/regcomp.c
index 02cece8bf6..23bc9b902a 100644
--- a/regcomp.c
+++ b/regcomp.c
@@ -55,7 +55,6 @@
 #  define PERL_NO_GET_CONTEXT
 #endif
 
-/*SUPPRESS 112*/
 /*
  * pregcomp and pregexec -- regsub and regerror are not used in perl
  *
diff --git a/regexec.c b/regexec.c
index 64149d4367..fa3eb1ba57 100644
--- a/regexec.c
+++ b/regexec.c
@@ -55,7 +55,6 @@
 #  define PERL_NO_GET_CONTEXT
 #endif
 
-/*SUPPRESS 112*/
 /*
  * pregcomp and pregexec -- regsub and regerror are not used in perl
  *
@@ -1849,7 +1848,6 @@ Perl_regexec_flags(pTHX_ register regexp *prog, char *stringarg, register char *
                                   "Did not find anchored character...\n")
                );
     }
-    /*SUPPRESS 560*/
     else if (prog->anchored_substr != Nullsv
 	      || prog->anchored_utf8 != Nullsv
 	      || ((prog->float_substr != Nullsv || prog->float_utf8 != Nullsv)
@@ -4328,7 +4326,6 @@ do_no:
 		goto do_no;
 	    }
 	    /* Have more choice yet.  Reuse the same uwb.  */
-	    /*SUPPRESS 560*/
 	    if ((n = (uwb->type == RE_UNWIND_BRANCH
 		      ? NEXT_OFF(next) : ARG(next))))
 		next += n;
diff --git a/sv.c b/sv.c
index bd49a28e22..f690ee6fce 100644
--- a/sv.c
+++ b/sv.c
@@ -4587,7 +4587,6 @@ Perl_sv_setsv_flags(pTHX_ SV *dstr, register SV *sstr, I32 flags)
         }
 	if (sflags & SVf_UTF8)
 	    SvUTF8_on(dstr);
-	/*SUPPRESS 560*/
 	if (sflags & SVp_NOK) {
 	    SvNOKp_on(dstr);
 	    if (sflags & SVf_NOK)
@@ -5739,7 +5738,6 @@ Perl_sv_insert(pTHX_ SV *bigstr, STRLEN offset, STRLEN len, const char *little,
 	*mid = '\0';
 	SvCUR_set(bigstr, mid - big);
     }
-    /*SUPPRESS 560*/
     else if ((i = mid - big)) {	/* faster from front */
 	midend -= littlelen;
 	mid = midend;
diff --git a/toke.c b/toke.c
index d89ac738be..ad50ec5ddf 100644
--- a/toke.c
+++ b/toke.c
@@ -4342,8 +4342,6 @@ Perl_yylex(pTHX)
 	case KEY___DATA__:
 	case KEY___END__: {
 	    GV *gv;
-
-	    /*SUPPRESS 560*/
 	    if (PL_rsfp && (!PL_in_eval || PL_tokenbuf[2] == 'D')) {
 		const char *pname = "main";
 		if (PL_tokenbuf[2] == 'D')
@@ -10518,7 +10516,6 @@ S_scan_formline(pTHX_ register char *s)
 
     while (!needargs) {
 	if (*s == '.') {
-	    /*SUPPRESS 530*/
 #ifdef PERL_STRICT_CR
 	    for (t = s+1;SPACE_OR_TAB(*t); t++) ;
 #else
diff --git a/util.c b/util.c
index e7cc539dcd..67d27d7381 100644
--- a/util.c
+++ b/util.c
@@ -152,7 +152,6 @@ Perl_safesysfree(Malloc_t where)
 #endif
     DEBUG_m( PerlIO_printf(Perl_debug_log, "0x%"UVxf": (%05ld) free\n",PTR2UV(where),(long)PL_an++));
     if (where) {
-	/*SUPPRESS 701*/
 	PerlMem_free(where);
     }
 }
@@ -584,7 +583,6 @@ Perl_fbm_instr(pTHX_ unsigned char *big, register unsigned char *bigend, SV *lit
 	    register I32 tmp;
 
 	  top2:
-	    /*SUPPRESS 560*/
 	    if ((tmp = table[*s])) {
 		if ((s += tmp) < bigend)
 		    goto top2;
@@ -1412,7 +1410,6 @@ Perl_my_setenv(pTHX_ const char *nam, const char *val)
 	I32 max;
 	char **tmpenv;
 
-	/*SUPPRESS 530*/
 	for (max = i; environ[max]; max++) ;
 	tmpenv = (char**)safesysmalloc((max+2) * sizeof(char*));
 	for (j=0; j<max; j++) {		/* copy environment */
@@ -2151,7 +2148,6 @@ Perl_my_popen(pTHX_ char *cmd, char *mode)
 	    PerlProc__exit(1);
 	}
 #endif	/* defined OS2 */
-	/*SUPPRESS 560*/
 	if ((tmpgv = gv_fetchpv("$",TRUE, SVt_PV))) {
 	    SvREADONLY_off(GvSV(tmpgv));
 	    sv_setiv(GvSV(tmpgv), PerlProc_getpid());
@@ -2632,7 +2628,6 @@ Perl_wait4pid(pTHX_ Pid_t pid, int *statusp, int flags)
 #endif /* !DOSISH || OS2 || WIN32 || NETWARE */
 
 void
-/*SUPPRESS 590*/
 Perl_pidgone(pTHX_ Pid_t pid, int status)
 {
     register SV *sv;