| 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 |