Change 33910: [PATCH] Silence build warnings in universal.c

[Rafael Garcia-Suarez]

Change 33910 by [EMAIL PROTECTED] on 2008/05/23 06:15:37

        Subject: [PATCH] Silence build warnings in universal.c
        From: "Jerry D. Hedden" <[EMAIL PROTECTED]>
        Date: Wed, 21 May 2008 13:15:28 -0400
        Message-ID: <[EMAIL PROTECTED]>

Affected files ...

... //depot/perl/universal.c#191 edit

Differences ...

==== //depot/perl/universal.c#191 (text) ====
Index: perl/universal.c
--- perl/universal.c#190~33902~ 2008-05-21 07:35:20.000000000 -0700
+++ perl/universal.c    2008-05-22 23:15:37.000000000 -0700
@@ -329,7 +329,7 @@
            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 @@
 {
     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) {
End of Patch.