This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
fix various compiler warnings from XS code
[perl5.git] / dist / ExtUtils-ParseXS / t / XSUsage.xs
CommitLineData
708f9ca6
DG
1#include "EXTERN.h"
2#include "perl.h"
3#include "XSUB.h"
4
e5b34a76
DG
5int xsusage_one() { return 1; }
6int xsusage_two() { return 2; }
7int xsusage_three() { return 3; }
8int xsusage_four() { return 4; }
c33e8be1
Z
9int xsusage_five(int i) { PERL_UNUSED_ARG(i); return 5; }
10int xsusage_six(int i) { PERL_UNUSED_ARG(i); return 6; }
708f9ca6
DG
11
12MODULE = XSUsage PACKAGE = XSUsage PREFIX = xsusage_
13
14PROTOTYPES: DISABLE
15
16int
17xsusage_one()
18
19int
20xsusage_two()
21 ALIAS:
22 two_x = 1
23 FOO::two = 2
24
25int
26interface_v_i()
27 INTERFACE:
28 xsusage_three
29
30int
31xsusage_four(...)
32
33int
34xsusage_five(int i, ...)
35
36int
37xsusage_six(int i = 0)