diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2013-07-10 00:35:01 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2013-07-10 00:35:01 +0000 |
| commit | 51b864269362341b80f9953c82c90520de51a0d8 (patch) | |
| tree | 603cf07c552c66ccc2d06d34f9345e10212bf3fa /gdb/testsuite/gdb.ada/arrayptr.exp | |
| parent | eca07816f8f4c9cb081123a8534a481b416d1add (diff) | |
| download | gdb-51b864269362341b80f9953c82c90520de51a0d8.zip gdb-51b864269362341b80f9953c82c90520de51a0d8.tar.gz gdb-51b864269362341b80f9953c82c90520de51a0d8.tar.bz2 | |
[testsuite/Ada] Add testing of access to packed arrays.
This patch adds some tests that evidence a regression fixed by
the following patch from Pedro Alves:
[PATCH] ada-lang.c:coerce_unspec_val_to_type: Preserve laziness
http://www.sourceware.org/ml/gdb-patches/2013-07/msg00178.html
gdb/testsuite/ChangeLog:
* gdb.ada/arrayptr/foo.adb: Add some code defining an access
to a packed array.
* gdb.ada/arrayptr.exp: Add a few tests using that new access
to packed array.
Diffstat (limited to 'gdb/testsuite/gdb.ada/arrayptr.exp')
| -rw-r--r-- | gdb/testsuite/gdb.ada/arrayptr.exp | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/arrayptr.exp b/gdb/testsuite/gdb.ada/arrayptr.exp index bfa36fd..8171db7 100644 --- a/gdb/testsuite/gdb.ada/arrayptr.exp +++ b/gdb/testsuite/gdb.ada/arrayptr.exp @@ -45,3 +45,9 @@ gdb_test "print arr_ptr (3..4)" "= \\(3 => 23, 24\\)" gdb_test "ptype string_access" "= access array \\(<>\\) of character" +gdb_test "print pa_ptr.all" \ + " = \\(10, 20, 30, 40, 50, 60, 62, 63, -23, 42\\)" + +gdb_test "print pa_ptr(3)" " = 30" + +gdb_test "print pa_ptr.all(3)" " = 30" |