This is the mail archive of the
gdb-patches@sourceware.org
mailing list for the GDB project.
[RFA/testsuite 2/2] Update gdb.ada/variant_record_packed_array
- From: Jerome Guitton <guitton at adacore dot com>
- To: gdb-patches at sourceware dot org
- Cc: Jerome Guitton <guitton at adacore dot com>
- Date: Thu, 29 Nov 2012 14:33:11 +0100
- Subject: [RFA/testsuite 2/2] Update gdb.ada/variant_record_packed_array
- References: <1354195991-20102-1-git-send-email-guitton@adacore.com>
...to test the case that is fixed by the previous message ("Handle
other cases than EVAL_NORMAL in the default case").
gdb/testsuite/ChangeLog:
* gdb.ada/variant_record_packed_array.exp: Test expressions of the
form {VARIANT_TYPE}ADDRESS.
OK to apply?
---
gdb/testsuite/gdb.ada/variant_record_packed_array.exp | 7 +++++++
1 file changed, 7 insertions(+)
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"
--
1.7.10.4