diff options
| author | Philippe Waroquiers <philippe.waroquiers@skynet.be> | 2018-12-26 14:19:00 +0100 |
|---|---|---|
| committer | Philippe Waroquiers <philippe.waroquiers@skynet.be> | 2018-12-27 10:47:00 +0100 |
| commit | 2ab54467f89763c96e2e9bda876eee1f9c8561b1 (patch) | |
| tree | 0ab5af096b256585a007aacfa9329ca1000bfe01 /gdb/testsuite | |
| parent | 84b68c77e7f1c8c883ff94aaa2fce0df2eab0877 (diff) | |
| download | gdb-2ab54467f89763c96e2e9bda876eee1f9c8561b1.zip gdb-2ab54467f89763c96e2e9bda876eee1f9c8561b1.tar.gz gdb-2ab54467f89763c96e2e9bda876eee1f9c8561b1.tar.bz2 | |
Fix gdb.ada/packed_array_assign.exp by using more unique names.
The test gdb.ada/packed_array_assign fails due to conflict between component 'w'
and system.dim.mks.w:
(gdb) print pra := ((x => 2, y => 0, w => 17), pr, (x => 7, y => 1, w => 23))
Unknown component name: system.dim.mks.w.
(gdb) FAIL: gdb.ada/packed_array_assign.exp: print pra := ((x => 2, y => 0, w => 17), pr, (x => 7, y => 1, w => 23))
Also, depending on the compiler version, the component w might be reordered
and placed before components x and y.
So, change the component order in the source, so that both an old
compiler (GNATMAKE 6.3.0, gcc (Debian 6.3.0-18+deb9u1) 6.3.0 20170516)
and a new compiler (GNATMAKE Pro 20.0w (20181210-82), based on gcc 8.2.1)
produce the same component order (checked by using -gnatR3s).
So, update to test the new (more unique) names in the source order.
2018-12-26 Philippe Waroquiers <philippe.waroquiers@skynet.be>
* gdb.ada/packed_array_assign/aggregates.ads (Packed_Rec):
Rename components to Packed_Array_Assign_[X|Y|W]. Place
component Packed_Array_Assign_W as first component, to ensure
old and new compilers have the same representation.
All users updated.
Diffstat (limited to 'gdb/testsuite')
| -rw-r--r-- | gdb/testsuite/gdb.ada/packed_array_assign.exp | 4 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/packed_array_assign/aggregates.ads | 8 |
2 files changed, 7 insertions, 5 deletions
diff --git a/gdb/testsuite/gdb.ada/packed_array_assign.exp b/gdb/testsuite/gdb.ada/packed_array_assign.exp index 25b20dd..317a156 100644 --- a/gdb/testsuite/gdb.ada/packed_array_assign.exp +++ b/gdb/testsuite/gdb.ada/packed_array_assign.exp @@ -26,5 +26,5 @@ clean_restart ${testfile} runto "aggregates.run_test" gdb_test \ - "print pra := ((x => 2, y => 0, w => 17), pr, (x => 7, y => 1, w => 23))" \ - " = \\(\\(w => 17, x => 2, y => 0\\), \\(w => 104, x => 2, y => 3\\), \\(w => 23, x => 7, y => 1\\)\\)" + "print pra := ((packed_array_assign_x => 2, packed_array_assign_y => 0, packed_array_assign_w => 17), pr, (packed_array_assign_x => 7, packed_array_assign_y => 1, packed_array_assign_w => 23))" \ + " = \\(\\(packed_array_assign_w => 17, packed_array_assign_x => 2, packed_array_assign_y => 0\\), \\(packed_array_assign_w => 104, packed_array_assign_x => 2, packed_array_assign_y => 3\\), \\(packed_array_assign_w => 23, packed_array_assign_x => 7, packed_array_assign_y => 1\\)\\)" diff --git a/gdb/testsuite/gdb.ada/packed_array_assign/aggregates.ads b/gdb/testsuite/gdb.ada/packed_array_assign/aggregates.ads index b43f70a..2648982 100644 --- a/gdb/testsuite/gdb.ada/packed_array_assign/aggregates.ads +++ b/gdb/testsuite/gdb.ada/packed_array_assign/aggregates.ads @@ -17,8 +17,8 @@ package Aggregates is subtype Int is Integer range 0 .. 7; type Packed_Rec is record - X, Y : Int; - W : Integer; + Packed_Array_Assign_W : Integer; + Packed_Array_Assign_X, Packed_Array_Assign_Y : Int; end record; pragma Pack (Packed_Rec); @@ -28,6 +28,8 @@ package Aggregates is procedure Run_Test; private - PR : Packed_Rec := (y => 3, w => 104, x => 2); + PR : Packed_Rec := (Packed_Array_Assign_Y => 3, + Packed_Array_Assign_W => 104, + Packed_Array_Assign_X => 2); PRA : Packed_RecArr (1 .. 3); end Aggregates; |