From: Andy Lester Date: Thu, 16 Jun 2005 09:13:42 +0000 (-0500) Subject: Removing /*SUPPRESS xxx*/ X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a6e20a404b42cad25eb97280fa2bcacffda64cd6;p=p5sagit%2Fp5-mst-13.2.git Removing /*SUPPRESS xxx*/ Message-ID: <20050616141342.GA22188@petdance.com> p4raw-id: //depot/perl@24871 --- diff --git a/av.c b/av.c index 70ed186..7a3e44f 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 cafa435..3a0bad0 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 73ccdcd..8d23a31 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 7cb4fdf..62b128a 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 ae75edf..5ebea62 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 04becac..bd61e40 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 4e2b412..68f7227 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 02cece8..23bc9b9 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 64149d4..fa3eb1b 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 bd49a28..f690ee6 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 d89ac73..ad50ec5 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 e7cc539..67d27d7 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