diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2008-01-04 20:47:16 +0000 |
|---|---|---|
| committer | Joel Brobecker <brobecker@gnat.com> | 2008-01-04 20:47:16 +0000 |
| commit | c18d3d891b8cc1c6686a10b8686e982430492488 (patch) | |
| tree | 4b33fdd143b312c41e35b557a9eb1e60a80007df | |
| parent | 727e3d2e5ca581e75f2d8707c28c5cbd7ee34bb0 (diff) | |
| download | binutils-gdb-c18d3d891b8cc1c6686a10b8686e982430492488.tar.gz | |
* gdb.ada/packed_array.exp: Add testing of references to
a packed array.
| -rw-r--r-- | gdb/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/testsuite/gdb.ada/packed_array.exp | 10 |
2 files changed, 15 insertions, 0 deletions
diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog index 8b33bd28c77..20a89de3dfd 100644 --- a/gdb/testsuite/ChangeLog +++ b/gdb/testsuite/ChangeLog @@ -1,5 +1,10 @@ 2008-01-04 Joel Brobecker <brobecker@adacore.com> + * gdb.ada/packed_array.exp: Add testing of references to + a packed array. + +2008-01-04 Joel Brobecker <brobecker@adacore.com> + * gdb.ada/type_coercion/ident.adb, gdb.ada/type_coercion/assign.adb: New files. * gdb.ada/type_coercion.exp: New testcase. diff --git a/gdb/testsuite/gdb.ada/packed_array.exp b/gdb/testsuite/gdb.ada/packed_array.exp index 071a4503de7..15989b84bb1 100644 --- a/gdb/testsuite/gdb.ada/packed_array.exp +++ b/gdb/testsuite/gdb.ada/packed_array.exp @@ -41,3 +41,13 @@ gdb_test "print var" \ ".* = \\(4 => true, false, true, false, true\\)" \ "print var" +# Try printing the value and the type definition of a reference +# to variable "Var". + +gdb_test "ptype &var" \ + "type = access array \\(4 \\.\\. 8\\) of boolean <packed: 1-bit elements>" \ + "ptype &var" + +gdb_test "print &var" \ + "\\(access array \\(\\.\\.\\.\\) of boolean\\) \\(4 => true, false, true, false, true\\)" \ + "print &var" |