From: Joel Brobecker <brobecker@gnat.com>
Date: Thu, 19 Nov 2009 22:45:56 +0000 (+0000)
Subject:         * ada-lang.c (discrete_type_p): TYPE_CODE_BOOL is also a discrete type.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=872f0337802a081229fb2947f271c0acccac9800;p=binutils-gdb.git

    * ada-lang.c (discrete_type_p): TYPE_CODE_BOOL is also a discrete type.
---

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 6ff3c3d5724..ea55fb18420 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,7 @@
+2009-11-19  Joel Brobecker  <brobecker@adacore.com>
+
+	* ada-lang.c (discrete_type_p): TYPE_CODE_BOOL is also a discrete type.
+
 2009-11-19  Joel Brobecker  <brobecker@adacore.com>
 
 	* completer.c (complete_line_internal): Make sure the command
diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 6cea84e83ff..289c59691fb 100644
--- a/gdb/ada-lang.c
+++ b/gdb/ada-lang.c
@@ -3585,6 +3585,7 @@ discrete_type_p (struct type *type)
         case TYPE_CODE_INT:
         case TYPE_CODE_RANGE:
         case TYPE_CODE_ENUM:
+        case TYPE_CODE_BOOL:
           return 1;
         default:
           return 0;