blob: 4b12910f3c9a14838e5ed97f856478951cb0efbc (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
/* Definitions for all PA machines. */
#define MAKEVA_START(list) \
list->argindex = list->nargs * list->max_arg_size;
#define MAKEVA_ARG(list, argaddr, argsize) \
{ \
int rounded_argsize; \
if (argsize > 8) \
/* Currently this never happens; printf_command only uses argsize */ \
/* of sizeof (int), sizeof (double), or sizeof (long long). */ \
error ("MAKEVA_ARG not fully written for hp-pa"); \
if (argsize <= 4) \
rounded_argsize = 4; \
else if (argsize <= 8) \
rounded_argsize = 8; \
list->argindex -= rounded_argsize; \
while ((int)(&list->aligner.arg_bytes[list->argindex]) % rounded_argsize) \
list->argindex--; \
memcpy (&list->aligner.arg_bytes[list->argindex], argaddr, argsize); \
}
/* The address of the arglist is the address right after the args
(which is what you'd expect). */
#define MAKEVA_END(list) \
return (va_list) (list->aligner.arg_bytes \
+ list->nargs * list->max_arg_size)
|
