diff options
| author | Jim Kingdon <jkingdon@engr.sgi.com> | 1993-06-29 18:53:40 +0000 |
|---|---|---|
| committer | Jim Kingdon <jkingdon@engr.sgi.com> | 1993-06-29 18:53:40 +0000 |
| commit | a4374df58dae7a745e5a3cd8ef52418a53693728 (patch) | |
| tree | 5efbb39e38f34a1633a8657d459e42489740abd8 /gdb/config/pa | |
| parent | 64b097786aec467a5e76a469339766acef2f515a (diff) | |
| download | gdb-a4374df58dae7a745e5a3cd8ef52418a53693728.zip gdb-a4374df58dae7a745e5a3cd8ef52418a53693728.tar.gz gdb-a4374df58dae7a745e5a3cd8ef52418a53693728.tar.bz2 | |
bugfix
Diffstat (limited to 'gdb/config/pa')
| -rw-r--r-- | gdb/config/pa/xm-pa.h | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/gdb/config/pa/xm-pa.h b/gdb/config/pa/xm-pa.h index 2a50725..523baf1 100644 --- a/gdb/config/pa/xm-pa.h +++ b/gdb/config/pa/xm-pa.h @@ -3,16 +3,18 @@ #define MAKEVA_START(list) \ list->argindex = list->nargs * list->max_arg_size; -/* In addition to having the arguments passed with the first ones at the - highest memory addresses, the pa also apparently aligns each argument - to the size of that argument. This only works because the caller only - deals in 4 and 8 byte arguments. If we wanted to handle args > 8 bytes, - we would have to pass the address by reference. */ #define MAKEVA_ARG(list, argaddr, argsize) \ - list->argindex = (list->argindex - argsize) & ~ (argsize - 1); \ - memcpy (&list->arg_bytes[list->argindex], argaddr, 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"); \ + memcpy (&list->arg_bytes[list->argindex - argsize], argaddr, argsize); \ + if (argsize <= 4) \ + list->argindex -= 4; \ + else if (argsize <= 8) \ + list->argindex -= 8; \ -/* Apparently the address of the arglist is the address right after the args +/* 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->arg_bytes \ |