From: Joel Brobecker <brobecker@gnat.com>
Date: Wed, 10 Sep 2008 16:35:17 +0000 (+0000)
Subject:         * gdb.ada/packed_tagged.exp: Accept "boolean" as a valid type
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=2bf448e0dcc2bd35ebb44382c15b6a902cdb08c9;p=binutils-gdb.git

    * 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 f078b703c24..3da4d30ae20 100644
--- 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 04755a52a31..fcf9778210a 100644
--- 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;" \