FreeChainXenon/binutils-gdb
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* sparc64-tdep.c (sparc64_store_arguments): Fix handling of

Browse source 
complex floats, adjust some related comments and tighten a related
assertion.
(sparc64_extract_return_value): Handle complex floats.
This commit is contained in:
Mark Kettenis 2012-04-08 05:42:53 +00:00
parent 0428998ead
commit cdc7b32f78
2 changed files with 15 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
gdb/ChangeLog
View file

@ -1,3 +1,10 @@
2012-04-07 Mark Kettenis <kettenis@gnu.org>
* sparc64-tdep.c (sparc64_store_arguments): Fix handling of
complex floats, adjust some related comments and tighten a related
assertion.
(sparc64_extract_return_value): Handle complex floats.
2012-04-07 Doug Evans <dje@google.com> 2012-04-07 Doug Evans <dje@google.com>
* dwarf2read.c (load_partial_dies): Change condition to assert. * dwarf2read.c (load_partial_dies): Change condition to assert.

15
gdb/sparc64-tdep.c
View file

@ -785,7 +785,8 @@ sparc64_store_arguments (struct regcache *regcache, int nargs,
struct type *type = value_type (args[i]); struct type *type = value_type (args[i]);
int len = TYPE_LENGTH (type); int len = TYPE_LENGTH (type);
if (sparc64_structure_or_union_p (type)) if (sparc64_structure_or_union_p (type) ||
(sparc64_complex_floating_p (type) && len == 32))
{ {
/* Structure or Union arguments. */ /* Structure or Union arguments. */
if (len <= 16) if (len <= 16)
@ -816,10 +817,9 @@ sparc64_store_arguments (struct regcache *regcache, int nargs,
num_elements++; num_elements++;
} }
} }
else if (sparc64_floating_p (type)) else if (sparc64_floating_p (type) || sparc64_complex_floating_p (type))
{ {
/* Floating arguments. */ /* Floating arguments. */
if (len == 16) if (len == 16)
{ {
/* The psABI says that "Each quad-precision parameter /* The psABI says that "Each quad-precision parameter
@ -887,7 +887,8 @@ sparc64_store_arguments (struct regcache *regcache, int nargs,
int regnum = -1; int regnum = -1;
gdb_byte buf[16]; gdb_byte buf[16];
if (sparc64_structure_or_union_p (type)) if (sparc64_structure_or_union_p (type) ||
(sparc64_complex_floating_p (type) && len == 32))
{ {
/* Structure or Union arguments. */ /* Structure or Union arguments. */
gdb_assert (len <= 16); gdb_assert (len <= 16);
@ -927,7 +928,7 @@ sparc64_store_arguments (struct regcache *regcache, int nargs,
/* The psABI says "Each single-precision parameter value /* The psABI says "Each single-precision parameter value
will be assigned to one extended word in the will be assigned to one extended word in the
parameter array, and right-justified within that parameter array, and right-justified within that
word; the left half (even floatregister) is word; the left half (even float register) is
undefined." Even though the psABI says that "the undefined." Even though the psABI says that "the
left half is undefined", set it to zero here. */ left half is undefined", set it to zero here. */
memset (buf, 0, 4); memset (buf, 0, 4);
@ -960,7 +961,7 @@ sparc64_store_arguments (struct regcache *regcache, int nargs,
} }
else if (regnum >= SPARC64_Q0_REGNUM && regnum <= SPARC64_Q8_REGNUM) else if (regnum >= SPARC64_Q0_REGNUM && regnum <= SPARC64_Q8_REGNUM)
{ {
gdb_assert (element < 6); gdb_assert (element < 5);
regnum = SPARC_O0_REGNUM + element; regnum = SPARC_O0_REGNUM + element;
regcache_cooked_write (regcache, regnum, valbuf); regcache_cooked_write (regcache, regnum, valbuf);
regcache_cooked_write (regcache, regnum + 1, valbuf + 8); regcache_cooked_write (regcache, regnum + 1, valbuf + 8);
@ -1034,7 +1035,7 @@ sparc64_extract_return_value (struct type *type, struct regcache *regcache,
sparc64_extract_floating_fields (regcache, type, buf, 0); sparc64_extract_floating_fields (regcache, type, buf, 0);
memcpy (valbuf, buf, len); memcpy (valbuf, buf, len);
} }
else if (sparc64_floating_p (type)) else if (sparc64_floating_p (type) || sparc64_complex_floating_p (type))
{ {
/* Floating return values. */ /* Floating return values. */
for (i = 0; i < len / 4; i++) for (i = 0; i < len / 4; i++)