From: Jerome Guitton <guitton@adacore.com>
Date: Thu, 29 Nov 2012 16:27:13 +0000 (+0000)
Subject: Update gdb.ada/variant_record_packed_array
X-Git-Tag: cgen-snapshot-20121201~23
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=c2d3fccf65e1f765cef27015e13f1b82a395c51e;p=platform%2Fupstream%2Fbinutils.git

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 2046e8b..c831c01 100644
--- 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 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"