From: Per Bothner <per@bothner.com>
Date: Wed, 24 Jan 1996 00:16:38 +0000 (+0000)
Subject: 	* language.c (lang_bool_type):  Add Fortran support.
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=ec5f347c7648d2e243c704c6ee8c5d21c5833ac7;p=binutils-gdb.git

	* 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 129681a2516..0d703fb0492 100644
--- 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 0ce74feb4ed..b9c04aeef9d 100644
--- 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)