1993-06-28 22:35:18 +00:00
|
|
|
/* Definitions for all PA machines. */
|
|
|
|
|
|
1993-07-14 22:44:03 +00:00
|
|
|
#define MAKEVA_EXTRA_INFO int arglist_address;
|
|
|
|
|
|
1993-06-28 22:35:18 +00:00
|
|
|
#define MAKEVA_START(list) \
|
1993-07-14 22:44:03 +00:00
|
|
|
list->argindex = list->nargs * list->max_arg_size; \
|
|
|
|
|
list->arglist_address = 0;
|
1993-06-28 22:35:18 +00:00
|
|
|
|
|
|
|
|
#define MAKEVA_ARG(list, argaddr, argsize) \
|
1993-07-14 22:44:03 +00:00
|
|
|
{ \
|
|
|
|
|
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->arg_bytes[list->argindex]) % rounded_argsize) \
|
|
|
|
|
list->argindex--; \
|
|
|
|
|
/* arglist_address is used to store the address of the first arguent. */ \
|
|
|
|
|
if (list->arglist_address == 0) \
|
|
|
|
|
list->arglist_address = &list->arg_bytes[list->argindex] \
|
|
|
|
|
+ rounded_argsize; \
|
|
|
|
|
memcpy (&list->arg_bytes[list->argindex], argaddr, argsize); \
|
|
|
|
|
}
|
1993-06-28 22:35:18 +00:00
|
|
|
|
1993-06-29 18:53:40 +00:00
|
|
|
/* The address of the arglist is the address right after the args
|
1993-07-14 22:44:03 +00:00
|
|
|
(which is what you'd expect). This address is stored in the arglist_address
|
|
|
|
|
field. */
|
1993-06-28 22:35:18 +00:00
|
|
|
#define MAKEVA_END(list) \
|
1993-07-14 22:44:03 +00:00
|
|
|
return (va_list) list->arglist_address;
|
