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

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 6ff3c3d..ea55fb1 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,9 @@
 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
        completer is not NULL before calling it.
 

diff --git a/gdb/ada-lang.c b/gdb/ada-lang.c
index 6cea84e..289c596 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;