diff options
| author | Tom Tromey <tromey@adacore.com> | 2020-10-06 08:56:54 -0600 |
|---|---|---|
| committer | Tom Tromey <tromey@adacore.com> | 2020-10-09 11:18:52 -0600 |
| commit | 7c184d334adac03eb200b0f8b01edaf051bfc01b (patch) | |
| tree | 38ff6a0265cb9dbbd3683aa7d726bb92bc47e324 /gdb/testsuite/gdb.ada/scalar_storage | |
| parent | 5c4258f4c051a31d7209712ecd28830c55a92034 (diff) | |
| download | gdb-7c184d334adac03eb200b0f8b01edaf051bfc01b.zip gdb-7c184d334adac03eb200b0f8b01edaf051bfc01b.tar.gz gdb-7c184d334adac03eb200b0f8b01edaf051bfc01b.tar.bz2 | |
Fix bit offset regression
The type-safe attribute patch introduced a regression that can occur
when the DW_AT_bit_offset value is negative. This can happen with
some Ada programs.
This patch fixes the problem. It also fixes a minor oddity in the
existing scalar storage test -- this test was intended to assign a
smaller number of bits to the field.
2020-10-09 Tom Tromey <tromey@adacore.com>
* dwarf2/read.c (dwarf2_add_field): Handle signed offsets.
gdb/testsuite/ChangeLog
2020-10-09 Tom Tromey <tromey@adacore.com>
* gdb.ada/scalar_storage/storage.adb (Another_Range): New type.
(Rec): Add field. Fix range.
* gdb.ada/scalar_storage.exp: Update.
Diffstat (limited to 'gdb/testsuite/gdb.ada/scalar_storage')
| -rw-r--r-- | gdb/testsuite/gdb.ada/scalar_storage/storage.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gdb/testsuite/gdb.ada/scalar_storage/storage.adb b/gdb/testsuite/gdb.ada/scalar_storage/storage.adb index 608425d..741718e 100644 --- a/gdb/testsuite/gdb.ada/scalar_storage/storage.adb +++ b/gdb/testsuite/gdb.ada/scalar_storage/storage.adb @@ -18,13 +18,16 @@ with System.Storage_Elements; use System.Storage_Elements; procedure Storage is subtype Some_Range is Natural range 0..127; + subtype Another_Range is Natural range 0..15; type Rec is record Value : Some_Range; + Another_Value : Another_Range; end record; for Rec use record - Value at 0 range 0..127; + Value at 0 range 0..6; + Another_Value at 0 range 7..10; end record; type Rec_LE is new Rec; @@ -39,8 +42,8 @@ procedure Storage is V_BE : Rec_BE; begin - V_LE.Value := 126; - V_BE.Value := 126; + V_LE := (126, 12); + V_BE := (126, 12); Do_Nothing (V_LE'Address); -- START Do_Nothing (V_BE'Address); |