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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 6ff3c3d572423a4bf5648310ff6f43f4f23acd17..ea55fb184205217757f2476dc6bae221a7d8d6da 100644 (file)
--- 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 6cea84e83fff46986f6cabc01c4df5411242c9b3..289c59691fbf8d5a1d7cc93823c28643509c5d83 100644 (file)
--- 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;