From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Wed, 6 Jun 2007 14:45:06 +0000 (-0400)
Subject: Silence compiler warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=48fc47360d542e9af53b5df6c7a018fe428c613c;p=p5sagit%2Fp5-mst-13.2.git

Silence compiler warnings
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510706061145r540c7f02kba96c04bc9dcf8b0@mail.gmail.com>

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

diff --git a/mro.c b/mro.c
index b43bfd0..7c6d966 100644
--- a/mro.c
+++ b/mro.c
@@ -920,6 +920,8 @@ XS(XS_mro_nextcan)
     struct mro_meta* selfmeta;
     HV* nmcache;
 
+    PERL_UNUSED_ARG(cv);
+
     SP -= items;
 
     if(sv_isobject(self))
diff --git a/pp_sys.c b/pp_sys.c
index 3c30388..3cef694 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -4655,9 +4655,9 @@ PP(pp_ghostent)
 	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
diff --git a/universal.c b/universal.c
index aa96ee4..36b9807 100644
--- a/universal.c
+++ b/universal.c
@@ -1100,6 +1100,7 @@ XS(XS_re_regnames_count)
     SV * ret;
     dVAR; 
     dXSARGS;
+    PERL_UNUSED_ARG(cv);
 
     if (items != 0)
        Perl_croak(aTHX_ "Usage: %s(%s)", "re::regnames_count", "");
@@ -1129,6 +1130,7 @@ XS(XS_re_regname)
     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 @@ XS(XS_re_regnames)
     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 @@ XS(XS_Tie_Hash_NamedCapture_FETCH)
     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 @@ XS(XS_Tie_Hash_NamedCapture_STORE)
     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 @@ XS(XS_Tie_Hash_NamedCapture_DELETE)
     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 @@ XS(XS_Tie_Hash_NamedCapture_CLEAR)
     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 @@ XS(XS_Tie_Hash_NamedCapture_EXISTS)
     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 @@ XS(XS_Tie_Hash_NamedCapture_FIRSTKEY)
     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 @@ XS(XS_Tie_Hash_NamedCapture_NEXTKEY)
     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 @@ XS(XS_Tie_Hash_NamedCapture_SCALAR)
     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 @@ XS(XS_Tie_Hash_NamedCapture_flags)
 {
     dVAR;
     dXSARGS;
+    PERL_UNUSED_ARG(cv);
 
     if (items != 0)
         Perl_croak(aTHX_ "Usage: Tie::Hash::NamedCapture::flags()");