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 | 12a4dd2190deb3986c7a01da1389d3209bbbb8be (patch) | |
tree | b6f6a257527325c7471a9239b45e6f1e3a8014e4 /gdb/testsuite/gdb.ada | |
parent | afd9bd8836a2962f19a786bd949807793aa70607 (diff) | |
download | gdb-12a4dd2190deb3986c7a01da1389d3209bbbb8be.tar.gz |
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 4df72ee48a2..a3b065fc6f4 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" |