From 60bcc778157c3a4dc878e915588d0d0901f2b5f3 Mon Sep 17 00:00:00 2001 From: Mark Kettenis Date: Mon, 17 May 2004 22:12:13 +0000 Subject: [PATCH] * vax-tdep.c (vax_return_value): Implement RETURN_VALUE_ABI_RETURNS_ADDRESS. --- gdb/ChangeLog | 5 +++++ gdb/vax-tdep.c | 16 +++++++++++++++- 2 files changed, 20 insertions(+), 1 deletion(-) diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 27d005854d..a3efd1e850 100644 --- a/gdb/ChangeLog +++ b/gdb/ChangeLog @@ -1,3 +1,8 @@ +2004-05-18 Mark Kettenis + + * vax-tdep.c (vax_return_value): Implement + RETURN_VALUE_ABI_RETURNS_ADDRESS. + 2004-05-17 Mark Kettenis * vax-tdep.c (vax_return_value): Fix typo. diff --git a/gdb/vax-tdep.c b/gdb/vax-tdep.c index f9f044a45a..e5b7cb8b68 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) { -- 2.11.0