Change 25641: Casts to stop warnings in d*.c

[Nicholas Clark]

Change 25641 by [EMAIL PROTECTED] on 2005/09/28 20:19:53

        Casts to stop warnings in d*.c

Affected files ...

... //depot/maint-5.8/perl/doio.c#53 edit
... //depot/maint-5.8/perl/doop.c#30 edit
... //depot/maint-5.8/perl/dump.c#48 edit

Differences ...

==== //depot/maint-5.8/perl/doio.c#53 (text) ====
Index: perl/doio.c
--- perl/doio.c#52~25592~       Sat Sep 24 02:56:14 2005
+++ perl/doio.c Wed Sep 28 13:19:53 2005
@@ -1721,7 +1721,7 @@
        if (isALPHA(*s)) {
            if (*s == 'S' && s[1] == 'I' && s[2] == 'G')
                s += 3;
-           if ((val = whichsig(s)) < 0)
+           if ((val = whichsig((char *)s)) < 0)
                Perl_croak(aTHX_ "Unrecognized signal name \"%s\"",s);
        }
        else

==== //depot/maint-5.8/perl/doop.c#30 (text) ====
Index: perl/doop.c
--- perl/doop.c#29~25574~       Fri Sep 23 02:52:15 2005
+++ perl/doop.c Wed Sep 28 13:19:53 2005
@@ -118,7 +118,7 @@
     else
        while (s < send) {
            STRLEN ulen;
-           const UV c = utf8n_to_uvchr(s, send - s, &ulen, 0);
+           const UV c = utf8n_to_uvchr((U8 *)s, send - s, &ulen, 0);
            if (c < 0x100) {
                if (tbl[c] >= 0)
                    matches++;
@@ -417,13 +417,13 @@
                break;
        }
        if (hibit)
-           start = s = bytes_to_utf8(s, &len);
+           start = s = bytes_to_utf8((U8 *)s, &len);
     }
     send = s + len;
 
     while (s < send) {
        UV uv;
-       if ((uv = swash_fetch(rv, s, TRUE)) < none || uv == extra)
+       if ((uv = swash_fetch(rv, (U8 *)s, TRUE)) < none || uv == extra)
            matches++;
        s += UTF8SKIP(s);
     }

==== //depot/maint-5.8/perl/dump.c#48 (text) ====
Index: perl/dump.c
--- perl/dump.c#47~25580~       Fri Sep 23 06:21:57 2005
+++ perl/dump.c Wed Sep 28 13:19:53 2005
@@ -65,12 +65,12 @@
            if (SvTYPE(gv) != SVt_PVGV || !GvGP(gv))
                continue;
            if (GvCVu(gv))
-               dump_sub(gv);
+               dump_sub((GV *)gv);
            if (GvFORM(gv))
-               dump_form(gv);
+               dump_form((GV *)gv);
            if (HeKEY(entry)[HeKLEN(entry)-1] == ':'
                && (hv = GvHV(gv)) && hv != PL_defstash)
-               dump_packsubs(hv);              /* nested package */
+               dump_packsubs((HV *) hv);               /* nested package */
        }
     }
 }
@@ -299,8 +299,8 @@
            SV *tmp = newSVpvn("", 0);
            sv_catpv(t, "(");
            if (SvOOK(sv))
-               Perl_sv_catpvf(aTHX_ t, "[%s]", pv_display(tmp, 
SvPVX_const(sv)-SvIVX(sv), SvIVX(sv), 0, 127));
-           Perl_sv_catpvf(aTHX_ t, "%s)", pv_display(tmp, SvPVX_const(sv), 
SvCUR(sv), SvLEN(sv), 127));
+               Perl_sv_catpvf(aTHX_ t, "[%s]", pv_display(tmp, (char 
*)SvPVX_const(sv)-SvIVX(sv), SvIVX(sv), 0, 127));
+           Perl_sv_catpvf(aTHX_ t, "%s)", pv_display(tmp, (char 
*)SvPVX_const(sv), SvCUR(sv), SvLEN(sv), 127));
            if (SvUTF8(sv))
                Perl_sv_catpvf(aTHX_ t, " [UTF8 \"%s\"]",
                               sv_uni_display(tmp, sv, 8 * sv_len_utf8(sv),
@@ -1180,8 +1180,8 @@
        if (SvPVX_const(sv)) {
            Perl_dump_indent(aTHX_ level, file,"  PV = 0x%"UVxf" ", 
PTR2UV(SvPVX_const(sv)));
            if (SvOOK(sv))
-               PerlIO_printf(file, "( %s . ) ", pv_display(d, 
SvPVX_const(sv)-SvIVX(sv), SvIVX(sv), 0, pvlim));
-           PerlIO_printf(file, "%s", pv_display(d, SvPVX_const(sv), SvCUR(sv), 
SvLEN(sv), pvlim));
+               PerlIO_printf(file, "( %s . ) ", pv_display(d, (char 
*)SvPVX_const(sv)-SvIVX(sv), SvIVX(sv), 0, pvlim));
+           PerlIO_printf(file, "%s", pv_display(d, (char *)SvPVX_const(sv), 
SvCUR(sv), SvLEN(sv), pvlim));
            if (SvUTF8(sv)) /* the 8?  \x{....} */
                PerlIO_printf(file, " [UTF8 \"%s\"]", sv_uni_display(d, sv, 8 * 
sv_len_utf8(sv), UNI_DISPLAY_QQ));
            PerlIO_printf(file, "\n");
@@ -1319,7 +1319,7 @@
                keysv = hv_iterkeysv(he);
                keypv = SvPV_const(keysv, len);
                elt = hv_iterval(hv, he);
-               Perl_dump_indent(aTHX_ level+1, file, "Elt %s ", pv_display(d, 
keypv, len, 0, pvlim));
+               Perl_dump_indent(aTHX_ level+1, file, "Elt %s ", pv_display(d, 
(char *)keypv, len, 0, pvlim));
                if (SvUTF8(keysv))
                    PerlIO_printf(file, "[UTF8 \"%s\"] ", sv_uni_display(d, 
keysv, 8 * sv_len_utf8(keysv), UNI_DISPLAY_QQ));
                if (HeKREHASH(he))
End of Patch.