diff options
author | Steffen Mueller <smueller@cpan.org> | 2011-02-10 10:20:11 +0100 |
---|---|---|
committer | Steffen Mueller <smueller@cpan.org> | 2011-07-12 20:53:56 +0200 |
commit | f0608b17db2e1d871f66b74784e401a1118fc680 (patch) | |
tree | 485f539d372dda8684b555d894d98dc5604eb26d | |
parent | ddf4d752713955ca5564984e78d9fbe72377fd13 (diff) | |
download | perl-f0608b17db2e1d871f66b74784e401a1118fc680.tar.gz |
Re-apply EU::ParseXS portion of c33e8be1506a75e
This is the unused-arg stuff in tests.
Originally reverted as 836ae07757f3a1a32212.
-rw-r--r-- | dist/ExtUtils-ParseXS/t/XSMore.xs | 2 | ||||
-rw-r--r-- | 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_ |