From f0608b17db2e1d871f66b74784e401a1118fc680 Mon Sep 17 00:00:00 2001 From: Steffen Mueller Date: Thu, 10 Feb 2011 10:20:11 +0100 Subject: Re-apply EU::ParseXS portion of c33e8be1506a75e This is the unused-arg stuff in tests. Originally reverted as 836ae07757f3a1a32212. --- dist/ExtUtils-ParseXS/t/XSMore.xs | 2 ++ dist/ExtUtils-ParseXS/t/XSUsage.xs | 4 ++-- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/dist/ExtUtils-ParseXS/t/XSMore.xs b/dist/ExtUtils-ParseXS/t/XSMore.xs index f2fe902fbe..0777f89eac 100644 --- 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 ec663f8653..1e59635ee0 100644 --- 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_ -- cgit v1.2.1