diff options
author | Jerome Guitton <guitton@adacore.com> | 2012-11-29 16:27:13 +0000 |
---|---|---|
committer | Jerome Guitton <guitton@adacore.com> | 2012-11-29 16:27:13 +0000 |
commit | c2d3fccf65e1f765cef27015e13f1b82a395c51e (patch) | |
tree | 5d2bad104f3fdd12e139d2fa7f0e1febbb4c2a01 /gdb/testsuite/gdb.ada | |
parent | ca1f964d4b41c778c8f2249e78990a5695645f23 (diff) | |
download | fsf-binutils-gdb-c2d3fccf65e1f765cef27015e13f1b82a395c51e.zip fsf-binutils-gdb-c2d3fccf65e1f765cef27015e13f1b82a395c51e.tar.gz fsf-binutils-gdb-c2d3fccf65e1f765cef27015e13f1b82a395c51e.tar.bz2 |
Update gdb.ada/variant_record_packed_array
gdb/testsuite/ChangeLog:
* gdb.ada/variant_record_packed_array.exp: Test expressions of the
form {VARIANT_TYPE}ADDRESS.
Diffstat (limited to 'gdb/testsuite/gdb.ada')
-rw-r--r-- | gdb/testsuite/gdb.ada/variant_record_packed_array.exp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp index 4df72ee..a3b065f 100644 --- a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp +++ b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp @@ -30,3 +30,10 @@ gdb_test "print my_buffer" \ "= \\(size => 8, buffer => \\(1, 2, 3, 4, 5, 6, 7, 0\\), length => 8\\)" \ "print empty" +gdb_test "print my_buffer'Address" \ + "= \\(system\\.address\\) $hex" \ + "print address" + +gdb_test "print {foo.octal_buffer} ($)" \ + "= \\(size => 8, buffer => \\(1, 2, 3, 4, 5, 6, 7, 0\\), length => 8\\)" \ + "print adress content" |