File Coverage

hax/make_argcheck_aux.c.inc
Criterion Covered Total %
statement 4 4 100.0
branch n/a
condition n/a
subroutine n/a
pod n/a
total 4 4 100.0


line stmt bran cond sub pod time code
1             /* vi: set ft=c : */
2              
3             #ifndef make_argcheck_aux
4              
5             #define make_argcheck_aux(params, opt_params, slurpy) S_make_argcheck_aux(aTHX_ params, opt_params, slurpy)
6             static inline UNOP_AUX_item *S_make_argcheck_aux(pTHX_ UV params, UV opt_params, char slurpy)
7             {
8             # if HAVE_PERL_VERSION(5, 31, 5)
9             struct op_argcheck_aux *aux = (struct op_argcheck_aux*)
10             PerlMemShared_malloc(sizeof(struct op_argcheck_aux));
11             aux->params = params;
12             aux->opt_params = opt_params;
13             aux->slurpy = slurpy;
14             return (UNOP_AUX_item *)aux;
15             # else
16 6           UNOP_AUX_item *aux = (UNOP_AUX_item *)PerlMemShared_malloc(sizeof(UNOP_AUX_item) * 3);
17 6           aux[0].iv = params;
18 6           aux[1].iv = opt_params;
19 6           aux[2].iv = slurpy;
20             return aux;
21             # endif
22             }
23              
24             #endif