diff options
| author | Mark Kettenis <kettenis@gnu.org> | 2004-05-17 22:12:13 +0000 |
|---|---|---|
| committer | Mark Kettenis <kettenis@gnu.org> | 2004-05-17 22:12:13 +0000 |
| commit | 60bcc778157c3a4dc878e915588d0d0901f2b5f3 (patch) | |
| tree | 12f604ef167478c8db6a654f604b7567a2b3a3b4 /gdb/vax-tdep.c | |
| parent | 2297d854d1353ee2ab305c6ddd072a5eca0ecd44 (diff) | |
| download | gdb-60bcc778157c3a4dc878e915588d0d0901f2b5f3.tar.gz | |
* vax-tdep.c (vax_return_value): Implement
RETURN_VALUE_ABI_RETURNS_ADDRESS.
Diffstat (limited to 'gdb/vax-tdep.c')
| -rw-r--r-- | gdb/vax-tdep.c | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/gdb/vax-tdep.c b/gdb/vax-tdep.c index f9f044a45aa..e5b7cb8b683 100644 --- a/gdb/vax-tdep.c +++ b/gdb/vax-tdep.c @@ -212,7 +212,21 @@ vax_return_value (struct gdbarch *gdbarch, struct type *type, if (TYPE_CODE (type) == TYPE_CODE_STRUCT || TYPE_CODE (type) == TYPE_CODE_UNION || TYPE_CODE (type) == TYPE_CODE_ARRAY) - return RETURN_VALUE_STRUCT_CONVENTION; + { + /* The default on VAX is to return structures in static memory. + Consequently a function must return the address where we can + find the return value. */ + + if (readbuf) + { + ULONGEST addr; + + regcache_raw_read_unsigned (regcache, VAX_R0_REGNUM, &addr); + read_memory (addr, readbuf, len); + } + + return RETURN_VALUE_ABI_RETURNS_ADDRESS; + } if (readbuf) { |