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.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 2046e8b9ca4e9fbd57aa9d849f966b10f0bc92cd..c831c015ed8566f08a091e83581f45cca502d71f 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2012-11-29  Jerome Guitton  <guitton@adacore.com>
+
+       * gdb.ada/variant_record_packed_array.exp: Test expressions of the
+       form {VARIANT_TYPE}ADDRESS.
+
 2012-11-27  Daniel Jacobowitz  <dan@codesourcery.com>
 
        * gdb.cp/member-ptr.cc (class Diamond): Add func_ptr.

diff --git a/gdb/testsuite/gdb.ada/variant_record_packed_array.exp b/gdb/testsuite/gdb.ada/variant_record_packed_array.exp
index 4df72ee48a266d64799aa0c2f2ea94ea443b93f2..a3b065fc6f4c7db5d74c0ba2225ad475aa0c024d 100644 (file)
--- 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"