Change 31348: [PATCHES] Silence compiler warnings

[Rafael Garcia-Suarez]

Change 31348 by [EMAIL PROTECTED] on 2007/06/07 12:12:39

        Subject: [PATCHES] Silence compiler warnings
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Wed, 6 Jun 2007 14:45:06 -0400
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/mro.c#24 edit
... //depot/perl/pp_sys.c#540 edit
... //depot/perl/universal.c#173 edit

Differences ...

==== //depot/perl/mro.c#24 (text) ====
Index: perl/mro.c
--- perl/mro.c#23~31332~        2007-06-04 01:04:13.000000000 -0700
+++ perl/mro.c  2007-06-07 05:12:39.000000000 -0700
@@ -920,6 +920,8 @@
     struct mro_meta* selfmeta;
     HV* nmcache;
 
+    PERL_UNUSED_ARG(cv);
+
     SP -= items;
 
     if(sv_isobject(self))

==== //depot/perl/pp_sys.c#540 (text) ====
Index: perl/pp_sys.c
--- perl/pp_sys.c#539~31248~    2007-05-20 23:26:31.000000000 -0700
+++ perl/pp_sys.c       2007-06-07 05:12:39.000000000 -0700
@@ -4655,9 +4655,9 @@
        const int addrtype = POPi;
        SV * const addrsv = POPs;
        STRLEN addrlen;
-       UV addr = PTR2UV(SvPVbyte(addrsv, addrlen));
+       const char *addr = (char *)SvPVbyte(addrsv, addrlen);
 
-       hent = PerlSock_gethostbyaddr((const char*)addr, (Netdb_hlen_t) 
addrlen, addrtype);
+       hent = PerlSock_gethostbyaddr(addr, (Netdb_hlen_t) addrlen, addrtype);
 #else
        DIE(aTHX_ PL_no_sock_func, "gethostbyaddr");
 #endif

==== //depot/perl/universal.c#173 (text) ====
Index: perl/universal.c
--- perl/universal.c#172~31341~ 2007-06-06 07:42:01.000000000 -0700
+++ perl/universal.c    2007-06-07 05:12:39.000000000 -0700
@@ -1100,6 +1100,7 @@
     SV * ret;
     dVAR; 
     dXSARGS;
+    PERL_UNUSED_ARG(cv);
 
     if (items != 0)
        Perl_croak(aTHX_ "Usage: %s(%s)", "re::regnames_count", "");
@@ -1129,6 +1130,7 @@
     REGEXP * rx;
     U32 flags;
     SV * ret;
+    PERL_UNUSED_ARG(cv);
 
     if (items < 1 || items > 2)
         Perl_croak(aTHX_ "Usage: %s(%s)", "re::regname", "name[, all ]");
@@ -1169,6 +1171,7 @@
     I32 length;
     I32 i;
     SV **entry;
+    PERL_UNUSED_ARG(cv);
 
     if (items > 1)
         Perl_croak(aTHX_ "Usage: %s(%s)", "re::regnames", "[all]");
@@ -1217,6 +1220,7 @@
     REGEXP * rx;
     U32 flags;
     SV * ret;
+    PERL_UNUSED_ARG(cv);
 
     if (items != 2)
         Perl_croak(aTHX_ "Usage: Tie::Hash::NamedCapture::STORE($key, 
$flags)");
@@ -1250,6 +1254,7 @@
     dXSARGS;
     REGEXP * rx;
     U32 flags;
+    PERL_UNUSED_ARG(cv);
 
     if (items != 3)
         Perl_croak(aTHX_ "Usage: Tie::Hash::NamedCapture::STORE($key, $value, 
$flags)");
@@ -1275,6 +1280,7 @@
     dXSARGS;
     REGEXP * rx = PL_curpm ? PM_GETRE(PL_curpm) : NULL;
     U32 flags;
+    PERL_UNUSED_ARG(cv);
 
     if (items != 2)
         Perl_croak(aTHX_ "Usage: Tie::Hash::NamedCapture::DELETE($key, 
$flags)");
@@ -1294,6 +1300,7 @@
     dXSARGS;
     REGEXP * rx;
     U32 flags;
+    PERL_UNUSED_ARG(cv);
 
     if (items != 1)
         Perl_croak(aTHX_ "Usage: Tie::Hash::NamedCapture::CLEAR($flags)");
@@ -1316,6 +1323,7 @@
     REGEXP * rx;
     U32 flags;
     SV * ret;
+    PERL_UNUSED_ARG(cv);
 
     if (items != 2)
         Perl_croak(aTHX_ "Usage: Tie::Hash::NamedCapture::EXISTS($key, 
$flags)");
@@ -1344,6 +1352,7 @@
     REGEXP * rx;
     U32 flags;
     SV * ret;
+    PERL_UNUSED_ARG(cv);
 
     if (items != 1)
         Perl_croak(aTHX_ "Usage: Tie::Hash::NamedCapture::FIRSTKEY()");
@@ -1376,6 +1385,7 @@
     REGEXP * rx;
     U32 flags;
     SV * ret;
+    PERL_UNUSED_ARG(cv);
 
     if (items != 2)
         Perl_croak(aTHX_ "Usage: Tie::Hash::NamedCapture::NEXTKEY($lastkey)");
@@ -1407,6 +1417,7 @@
     REGEXP * rx;
     U32 flags;
     SV * ret;
+    PERL_UNUSED_ARG(cv);
 
     if (items != 1)
         Perl_croak(aTHX_ "Usage: Tie::Hash::NamedCapture::SCALAR()");
@@ -1436,6 +1447,7 @@
 {
     dVAR;
     dXSARGS;
+    PERL_UNUSED_ARG(cv);
 
     if (items != 0)
         Perl_croak(aTHX_ "Usage: Tie::Hash::NamedCapture::flags()");
End of Patch.