Re-apply EU::ParseXS portion of c33e8be1506a75e

This is the unused-arg stuff in tests.
Originally reverted as 836ae07757f3a1a32212.

diff --git a/dist/ExtUtils-ParseXS/t/XSMore.xs b/dist/ExtUtils-ParseXS/t/XSMore.xs
index f2fe902..0777f89 100644 (file)
--- a/dist/ExtUtils-ParseXS/t/XSMore.xs
+++ b/dist/ExtUtils-ParseXS/t/XSMore.xs
@@ -16,6 +16,7 @@ outlist(int* a, int* b){
 
 STATIC int
 len(const char* const s, int const l){
+       PERL_UNUSED_ARG(s);
        return l;
 }
 
@@ -84,6 +85,7 @@ int
 myabs(...)
 OVERLOAD: abs
 CODE:
+       PERL_UNUSED_VAR(items);
        RETVAL = 42;
 OUTPUT:
        RETVAL

diff --git a/dist/ExtUtils-ParseXS/t/XSUsage.xs b/dist/ExtUtils-ParseXS/t/XSUsage.xs
index ec663f8..1e59635 100644 (file)
--- a/dist/ExtUtils-ParseXS/t/XSUsage.xs
+++ b/dist/ExtUtils-ParseXS/t/XSUsage.xs
@@ -6,8 +6,8 @@ int xsusage_one()       { return 1; }
 int xsusage_two()       { return 2; }
 int xsusage_three()     { return 3; }
 int xsusage_four()      { return 4; }
-int xsusage_five(int i) { return 5; }
-int xsusage_six(int i)  { return 6; }
+int xsusage_five(int i) { PERL_UNUSED_ARG(i); return 5; }
+int xsusage_six(int i)  { PERL_UNUSED_ARG(i); return 6; }
 
 MODULE = XSUsage         PACKAGE = XSUsage     PREFIX = xsusage_