[perl5.git] / dist / ExtUtils-ParseXS / t / XSBroken.xs

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

typedef IV MyType3;

MODULE = XSBroken         PACKAGE = XSBroken

PROTOTYPES: ENABLE


TYPEMAP: <<'END'
MyType3	T_BAAR

OUTPUT
T_BAAR
	sv_setiv($arg, (IV)$var);
END

MyType3
typemaptest3(foo)
    MyType3 foo
  CODE:
    RETVAL = foo;
  OUTPUT:
    RETVAL
Commit	Line	Data
f1f3e123 E	1	#include "EXTERN.h"
	2	#include "perl.h"
	3	#include "XSUB.h"
	4
	5	typedef IV MyType3;
	6
	7	MODULE = XSBroken PACKAGE = XSBroken
	8
	9	PROTOTYPES: ENABLE
	10
	11
	12	TYPEMAP: <<'END'
	13	MyType3 T_BAAR
	14
	15	OUTPUT
	16	T_BAAR
	17	sv_setiv($arg, (IV)$var);
	18	END
	19
	20	MyType3
	21	typemaptest3(foo)
	22	MyType3 foo
	23	CODE:
	24	RETVAL = foo;
	25	OUTPUT:
	26	RETVAL