aboutsummaryrefslogtreecommitdiff
path: root/gdb/testsuite/gdb.ada
diff options
context:
space:
mode:
authorJerome Guitton <guitton@adacore.com>2012-11-29 16:27:13 +0000
committerJerome Guitton <guitton@adacore.com>2012-11-29 16:27:13 +0000
commitc2d3fccf65e1f765cef27015e13f1b82a395c51e (patch)
tree5d2bad104f3fdd12e139d2fa7f0e1febbb4c2a01 /gdb/testsuite/gdb.ada
parentca1f964d4b41c778c8f2249e78990a5695645f23 (diff)
downloadgdb-c2d3fccf65e1f765cef27015e13f1b82a395c51e.zip
gdb-c2d3fccf65e1f765cef27015e13f1b82a395c51e.tar.gz
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.exp7
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"