darkkirb/old-cross-binutils
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

* infcall.c (call_function_by_hand): For

Browse source 
RETURN_VALUE_ABI_RETURNS_ADDRESS and
RETURN_VALUE_ABI_PRESERVES_ADDRESS, use gdbarch_return_value to
get return value.
This commit is contained in:
Mark Kettenis 2005-08-21 09:34:19 +00:00
parent d067a990c8
commit 1a4d7a3610
2 changed files with 33 additions and 23 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gdb/ChangeLog
View file

@ -1,5 +1,10 @@
2005-08-21 Mark Kettenis <kettenis@gnu.org>
* infcall.c (call_function_by_hand): For
RETURN_VALUE_ABI_RETURNS_ADDRESS and
RETURN_VALUE_ABI_PRESERVES_ADDRESS, use gdbarch_return_value to
get return value.
* valarith.c (value_equal, value_less): Avoid compiler bug on
systems where `long double' values are returned in static storage.

51
gdb/infcall.c
View file

@ -854,39 +854,44 @@ the function call)."), name);
leave the RETBUF alone. */
do_cleanups (inf_status_cleanup);
/* Figure out the value returned by the function, return that. */
/* Figure out the value returned by the function. */
{
struct value *retval;
struct value *retval = NULL;
if (TYPE_CODE (values_type) == TYPE_CODE_VOID)
/* If the function returns void, don't bother fetching the
return value. */
retval = allocate_value (values_type);
else if (struct_return)
/* NOTE: cagney/2003-09-27: This assumes that PUSH_DUMMY_CALL
has correctly stored STRUCT_ADDR in the target. In the past
that hasn't been the case, the old MIPS PUSH_ARGUMENTS
(PUSH_DUMMY_CALL precursor) would silently move the location
of the struct return value making STRUCT_ADDR bogus. If
you're seeing problems with values being returned using the
"struct return convention", check that PUSH_DUMMY_CALL isn't
playing tricks. */
retval = value_at (values_type, struct_addr);
{
/* If the function returns void, don't bother fetching the
return value. */
retval = allocate_value (values_type);
}
else
{
/* This code only handles "register convention". */
retval = allocate_value (values_type);
gdb_assert (gdbarch_return_value (current_gdbarch, values_type,
NULL, NULL, NULL)
== RETURN_VALUE_REGISTER_CONVENTION);
gdbarch_return_value (current_gdbarch, values_type, retbuf,
value_contents_raw (retval) /*read*/,
NULL /*write*/);
struct gdbarch *arch = current_gdbarch;
switch (gdbarch_return_value (arch, values_type, NULL, NULL, NULL))
{
case RETURN_VALUE_REGISTER_CONVENTION:
case RETURN_VALUE_ABI_RETURNS_ADDRESS:
case RETURN_VALUE_ABI_PRESERVES_ADDRESS:
retval = allocate_value (values_type);
gdbarch_return_value (current_gdbarch, values_type, retbuf,
value_contents_raw (retval), NULL);
break;
case RETURN_VALUE_STRUCT_CONVENTION:
retval = value_at (values_type, struct_addr);
break;
}
}
do_cleanups (retbuf_cleanup);
gdb_assert(retval);
return retval;
}
}
/* Provide a prototype to silence -Wmissing-prototypes. */
void _initialize_infcall (void);
void