This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Implement 'skip' option for merging typemaps
[perl5.git] / dist / ExtUtils-ParseXS / t / data / confl_skip.typemap
1 TYPEMAP
2 double  T_NV
3
4 INPUT
5 T_NV
6         $var = ($type)SvNV($arg);
7 T_DIFFERENT
8         $var = ($type)SvNV($arg);
9
10 OUTPUT
11 T_NV
12         sv_setnv($arg, (NV)$var);