* eval.c (OP_BOOL): Use LA_BOOL_TYPE.
+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.
{
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)