* gdb.ada/packed_tagged.exp: Accept "boolean" as a valid type

        description for boolean types.

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index f078b703c24c5abc4bbcf36618f4478840655745..3da4d30ae202a0d8a1ae02efb6ac934d9e60d6d1 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2008-09-10  Joel Brobecker  <brobecker@adacore.com>
+
+       * gdb.ada/packed_tagged.exp: Accept "boolean" as a valid type
+       description for boolean types.
+
 2008-09-09  Pedro Alves  <pedro@codesourcery.com>
 
        * gdb.base/hook-stop-continue.c: New.

diff --git a/gdb/testsuite/gdb.ada/packed_tagged.exp b/gdb/testsuite/gdb.ada/packed_tagged.exp
index 04755a52a31cec01afed44597b77808af06faaa5..fcf9778210aebb0b890501074954d179f41d956d 100644 (file)
--- a/gdb/testsuite/gdb.ada/packed_tagged.exp
+++ b/gdb/testsuite/gdb.ada/packed_tagged.exp
@@ -54,7 +54,7 @@ gdb_test "print x" \
 
 gdb_test "ptype x" \
          [multi_line "type = record" \
-                     "    exists: range false \\.\\. true;" \
+                     "    exists: (boolean|range false \\.\\. true);" \
                      "    case exists is" \
                      "        when true =>" \
                      "            value: range 0 \\.\\. 255;" \