From c2d3fccf65e1f765cef27015e13f1b82a395c51e Mon Sep 17 00:00:00 2001 From: Jerome Guitton Date: Thu, 29 Nov 2012 16:27:13 +0000 Subject: [PATCH] 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. --- gdb/testsuite/ChangeLog | 5 +++++ gdb/testsuite/gdb.ada/variant_record_packed_array.exp | 7 +++++++ 2 files changed, 12 insertions(+) diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 2046e8b9ca4..c831c015ed8 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2012-11-29 Jerome Guitton + + * gdb.ada/variant_record_packed_array.exp: Test expressions of the + form {VARIANT_TYPE}ADDRESS. + 2012-11-27 Daniel Jacobowitz * 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 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" -- 2.30.2