* language.c (lang_bool_type): Add Fortran support.

	* eval.c (OP_BOOL):  Use LA_BOOL_TYPE.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 129681a251607965bd63d0c53eed8fc6e6115445..0d703fb0492d69e1f78143c934cbf9c240497061 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+Tue Jan 23 14:36:05 1996  Per Bothner  <bothner@kalessin.cygnus.com>
+
+       * language.c (lang_bool_type):  Add Fortran support.
+       * eval.c (OP_BOOL):  Use LA_BOOL_TYPE.
+
 Tue Jan 23 13:08:26 1996  Jeffrey A Law  (law@cygnus.com)
 
        * symfile.c (auto_solib_add): Renamed from auto_solib_add_at_startup.

diff --git a/gdb/language.c b/gdb/language.c
index 0ce74feb4ed716dd794c33fcbf1df9d57371e61f..b9c04aeef9d779c6dbe807700eec838cd6734c09 100644 (file)
--- a/gdb/language.c
+++ b/gdb/language.c
@@ -782,6 +782,15 @@ lang_bool_type ()
     {
     case language_chill:
       return builtin_type_chill_bool;
+    case language_fortran:
+      sym = lookup_symbol ("logical", NULL, VAR_NAMESPACE, NULL, NULL);
+      if (sym)
+       {
+         struct type *type = SYMBOL_TYPE (sym);
+         if (type && TYPE_CODE (type) == TYPE_CODE_BOOL)
+           return type;
+       }
+      return builtin_type_f_logical_s2;
     case language_cplus:
       sym = lookup_symbol ("bool", NULL, VAR_NAMESPACE, NULL, NULL);
       if (sym)