From 2330c6c69c988335412d95a42bf0f44eea9ad967 Mon Sep 17 00:00:00 2001
From: Joel Brobecker <brobecker@gnat.com>
Date: Fri, 28 Dec 2007 06:13:51 +0000
Subject:         * ada-lang.c (ada_evaluate_subexp): Add cases for
 BINOP_LOGICAL_AND,         BINOP_LOGICAL_OR, UNOP_LOGICAL_NOT,
 BINOP_BITWISE_IOR,         BINOP_BITWISE_XOR, BINOP_BITWISE_AND.         *
 language.c (lang_bool_type): Add Ada case.

---
 gdb/language.c | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'gdb/language.c')

diff --git a/gdb/language.c b/gdb/language.c
index 84a095f..3355475 100644
--- a/gdb/language.c
+++ b/gdb/language.c
@@ -801,6 +801,7 @@ lang_bool_type (void)
       return builtin_type_f_logical_s2;
     case language_cplus:
     case language_pascal:
+    case language_ada:
       if (current_language->la_language==language_cplus)
         {sym = lookup_symbol ("bool", NULL, VAR_DOMAIN, NULL, NULL);}
       else
@@ -821,6 +822,7 @@ lang_bool_type (void)
 	    return type;
 	}
       return java_boolean_type;
+      
     default:
       return builtin_type_int;
     }
-- 
cgit v1.1