xref: /openbsd-src/gnu/usr.bin/perl/dist/ExtUtils-ParseXS/t/XSBroken.xs (revision 256a93a44f36679bee503f12e49566c2183f6181) 
1*256a93a4Safresh1 #include "EXTERN.h"
2*256a93a4Safresh1 #include "perl.h"
3*256a93a4Safresh1 #include "XSUB.h"
4*256a93a4Safresh1 
5*256a93a4Safresh1 typedef IV MyType3;
6*256a93a4Safresh1 
7*256a93a4Safresh1 MODULE = XSBroken         PACKAGE = XSBroken
8*256a93a4Safresh1 
9*256a93a4Safresh1 PROTOTYPES: ENABLE
10*256a93a4Safresh1 
11*256a93a4Safresh1 
12*256a93a4Safresh1 TYPEMAP: <<'END'
13*256a93a4Safresh1 MyType3	T_BAAR
14*256a93a4Safresh1 
15*256a93a4Safresh1 OUTPUT
16*256a93a4Safresh1 T_BAAR
17*256a93a4Safresh1 	sv_setiv($arg, (IV)$var);
18*256a93a4Safresh1 END
19*256a93a4Safresh1 
20*256a93a4Safresh1 MyType3
21*256a93a4Safresh1 typemaptest3(foo)
22*256a93a4Safresh1     MyType3 foo
23*256a93a4Safresh1   CODE:
24*256a93a4Safresh1     RETVAL = foo;
25*256a93a4Safresh1   OUTPUT:
26*256a93a4Safresh1     RETVAL
27