diff options
| author | Tom Tromey <tromey@adacore.com> | 2019-04-26 10:57:52 -0600 |
|---|---|---|
| committer | Tom Tromey <tromey@adacore.com> | 2019-05-01 08:09:22 -0600 |
| commit | d48e62f4a263a871b7a62793e8000625735bc2f6 (patch) | |
| tree | d5e30d500bccde97f8d27793cd6d3fe0d77e83f4 /gdb/ada-lang.c | |
| parent | 25a0274483cb00c27945b0337005be4f169ff09f (diff) | |
| download | fsf-binutils-gdb-d48e62f4a263a871b7a62793e8000625735bc2f6.zip fsf-binutils-gdb-d48e62f4a263a871b7a62793e8000625735bc2f6.tar.gz fsf-binutils-gdb-d48e62f4a263a871b7a62793e8000625735bc2f6.tar.bz2 | |
Fix big-endian aggregate assignment in Ada
A bug internal to AdaCore notes that assigning a non-scalar value to
an element of a packed array will sometimes fail.
The bug turns out to be that ada_value_assign incorrectly computes the
starting point for the assignment. This patch fixes the problem.
gdb/ChangeLog
2019-05-01 Tom Tromey <tromey@adacore.com>
* ada-lang.c (ada_value_assign): Correctly compute starting offset
for big-endian copies.
gdb/testsuite/ChangeLog
2019-05-01 Tom Tromey <tromey@adacore.com>
* gdb.ada/packed_array_assign.exp: Add packed assignment
regression test.
Diffstat (limited to 'gdb/ada-lang.c')
| -rw-r--r-- | gdb/ada-lang.c | 14 |
1 files changed, 8 insertions, 6 deletions
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c index 676cd6d..da70a51 100644 --- a/gdb/ada-lang.c +++ b/gdb/ada-lang.c @@ -2710,12 +2710,14 @@ ada_value_assign (struct value *toval, struct value *fromval) from_size = value_bitsize (fromval); if (from_size == 0) from_size = TYPE_LENGTH (value_type (fromval)) * TARGET_CHAR_BIT; - if (gdbarch_bits_big_endian (get_type_arch (type))) - copy_bitwise (buffer, value_bitpos (toval), - value_contents (fromval), from_size - bits, bits, 1); - else - copy_bitwise (buffer, value_bitpos (toval), - value_contents (fromval), 0, bits, 0); + + const int is_big_endian = gdbarch_bits_big_endian (get_type_arch (type)); + ULONGEST from_offset = 0; + if (is_big_endian && is_scalar_type (value_type (fromval))) + from_offset = from_size - bits; + copy_bitwise (buffer, value_bitpos (toval), + value_contents (fromval), from_offset, + bits, is_big_endian); write_memory_with_notification (to_addr, buffer, len); val = value_copy (toval); |