File Coverage

xs/Internal.xs

Criterion	Covered	Total	%
statement	46	46	100.0
branch			n/a
condition			n/a
subroutine			n/a
pod			n/a
total	46	46	100.0

line	stmt	code
1		MODULE = FFI::Platypus PACKAGE = FFI::Platypus::Internal
2
3		void
4		_init()
5		INIT:
6		HV *stash;
7		CODE:
8	5	stash = gv_stashpv("FFI::Platypus::Internal", TRUE);
9	5	newCONSTSUB(stash, "FFI_PL_SIZE_0", newSViv(FFI_PL_SIZE_0));
10	5	newCONSTSUB(stash, "FFI_PL_SIZE_8", newSViv(FFI_PL_SIZE_8));
11	5	newCONSTSUB(stash, "FFI_PL_SIZE_16", newSViv(FFI_PL_SIZE_16));
12	5	newCONSTSUB(stash, "FFI_PL_SIZE_32", newSViv(FFI_PL_SIZE_32));
13	5	newCONSTSUB(stash, "FFI_PL_SIZE_64", newSViv(FFI_PL_SIZE_64));
14	5	newCONSTSUB(stash, "FFI_PL_SIZE_128", newSViv(FFI_PL_SIZE_128));
15	5	newCONSTSUB(stash, "FFI_PL_SIZE_256", newSViv(FFI_PL_SIZE_256));
16	5	newCONSTSUB(stash, "FFI_PL_SIZE_512", newSViv(FFI_PL_SIZE_512));
17	5	newCONSTSUB(stash, "FFI_PL_SIZE_PTR", newSViv(FFI_PL_SIZE_PTR));
18	5	newCONSTSUB(stash, "FFI_PL_SIZE_MASK", newSViv(FFI_PL_SIZE_MASK));
19
20	5	newCONSTSUB(stash, "FFI_PL_BASE_VOID", newSViv(FFI_PL_BASE_VOID));
21	5	newCONSTSUB(stash, "FFI_PL_BASE_SINT", newSViv(FFI_PL_BASE_SINT));
22	5	newCONSTSUB(stash, "FFI_PL_BASE_UINT", newSViv(FFI_PL_BASE_UINT));
23	5	newCONSTSUB(stash, "FFI_PL_BASE_FLOAT", newSViv(FFI_PL_BASE_FLOAT));
24	5	newCONSTSUB(stash, "FFI_PL_BASE_COMPLEX", newSViv(FFI_PL_BASE_COMPLEX));
25	5	newCONSTSUB(stash, "FFI_PL_BASE_OPAQUE", newSViv(FFI_PL_BASE_OPAQUE));
26	5	newCONSTSUB(stash, "FFI_PL_BASE_STRING", newSViv(FFI_PL_BASE_STRING));
27	5	newCONSTSUB(stash, "FFI_PL_BASE_CLOSURE", newSViv(FFI_PL_BASE_CLOSURE));
28	5	newCONSTSUB(stash, "FFI_PL_BASE_RECORD", newSViv(FFI_PL_BASE_RECORD));
29	5	newCONSTSUB(stash, "FFI_PL_BASE_MASK", newSViv(FFI_PL_BASE_MASK));
30
31	5	newCONSTSUB(stash, "FFI_PL_SHAPE_SCALAR", newSViv(FFI_PL_SHAPE_SCALAR));
32	5	newCONSTSUB(stash, "FFI_PL_SHAPE_POINTER", newSViv(FFI_PL_SHAPE_POINTER));
33	5	newCONSTSUB(stash, "FFI_PL_SHAPE_ARRAY", newSViv(FFI_PL_SHAPE_ARRAY));
34	5	newCONSTSUB(stash, "FFI_PL_SHAPE_CUSTOM_PERL", newSViv(FFI_PL_SHAPE_CUSTOM_PERL));
35	5	newCONSTSUB(stash, "FFI_PL_SHAPE_OBJECT", newSViv(FFI_PL_SHAPE_OBJECT));
36	5	newCONSTSUB(stash, "FFI_PL_SHAPE_CUSTOM_MASK", newSViv(FFI_PL_SHAPE_MASK));
37
38	5	newCONSTSUB(stash, "FFI_PL_TYPE_VOID", newSViv(FFI_PL_TYPE_VOID));
39	5	newCONSTSUB(stash, "FFI_PL_TYPE_SINT8", newSViv(FFI_PL_TYPE_SINT8));
40	5	newCONSTSUB(stash, "FFI_PL_TYPE_SINT16", newSViv(FFI_PL_TYPE_SINT16));
41	5	newCONSTSUB(stash, "FFI_PL_TYPE_SINT32", newSViv(FFI_PL_TYPE_SINT32));
42	5	newCONSTSUB(stash, "FFI_PL_TYPE_SINT64", newSViv(FFI_PL_TYPE_SINT64));
43	5	newCONSTSUB(stash, "FFI_PL_TYPE_UINT8", newSViv(FFI_PL_TYPE_UINT8));
44	5	newCONSTSUB(stash, "FFI_PL_TYPE_UINT16", newSViv(FFI_PL_TYPE_UINT16));
45	5	newCONSTSUB(stash, "FFI_PL_TYPE_UINT32", newSViv(FFI_PL_TYPE_UINT32));
46	5	newCONSTSUB(stash, "FFI_PL_TYPE_UINT64", newSViv(FFI_PL_TYPE_UINT64));
47	5	newCONSTSUB(stash, "FFI_PL_TYPE_FLOAT", newSViv(FFI_PL_TYPE_FLOAT));
48	5	newCONSTSUB(stash, "FFI_PL_TYPE_DOUBLE", newSViv(FFI_PL_TYPE_DOUBLE));
49	5	newCONSTSUB(stash, "FFI_PL_TYPE_LONG_DOUBLE", newSViv(FFI_PL_TYPE_LONG_DOUBLE));
50	5	newCONSTSUB(stash, "FFI_PL_TYPE_COMPLEX_FLOAT", newSViv(FFI_PL_TYPE_COMPLEX_FLOAT));
51	5	newCONSTSUB(stash, "FFI_PL_TYPE_COMPLEX_DOUBLE", newSViv(FFI_PL_TYPE_COMPLEX_DOUBLE));
52	5	newCONSTSUB(stash, "FFI_PL_TYPE_OPAQUE", newSViv(FFI_PL_TYPE_OPAQUE));
53
54	5	newCONSTSUB(stash, "FFI_PL_TYPE_STRING", newSViv(FFI_PL_TYPE_STRING));
55	5	newCONSTSUB(stash, "FFI_PL_TYPE_CLOSURE", newSViv(FFI_PL_TYPE_CLOSURE));
56	5	newCONSTSUB(stash, "FFI_PL_TYPE_RECORD", newSViv(FFI_PL_TYPE_RECORD));
57	5	newCONSTSUB(stash, "FFI_PL_TYPE_RECORD_VALUE", newSViv(FFI_PL_TYPE_RECORD_VALUE));