From: Jerry D. Hedden <jdhedden@cpan.org>
Date: Wed, 21 May 2008 13:15:28 +0000 (-0400)
Subject: Silence build warnings in universal.c
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93c512172a58c199c03358764753a650e33707e2;p=p5sagit%2Fp5-mst-13.2.git

Silence build warnings in universal.c
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510805211015m5c59bbf5wf3a992e776b1c4c4@mail.gmail.com>

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

diff --git a/universal.c b/universal.c
index 008b593..84d13fc 100644
--- a/universal.c
+++ b/universal.c
@@ -329,7 +329,7 @@ Perl_croak_xs_usage(pTHX_ const CV *const cv, const char *const params)
 	    Perl_croak(aTHX_ "Usage: %s(%s)", gvname, params);
     } else {
 	/* Pants. I don't think that it should be possible to get here. */
-	Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", (UV)cv, params);
+	Perl_croak(aTHX_ "Usage: CODE(0x%"UVxf")(%s)", PTR2UV(cv), params);
     }
 }
 
@@ -1065,6 +1065,7 @@ XS(XS_Internals_HvREHASH)	/* Subject to change  */
 {
     dVAR;
     dXSARGS;
+    PERL_UNUSED_ARG(cv);
     if (SvROK(ST(0))) {
 	const HV * const hv = (HV *) SvRV(ST(0));
 	if (items == 1 && SvTYPE(hv) == SVt_PVHV) {