From ec5f347c7648d2e243c704c6ee8c5d21c5833ac7 Mon Sep 17 00:00:00 2001 From: Per Bothner Date: Wed, 24 Jan 1996 00:16:38 +0000 Subject: [PATCH] * language.c (lang_bool_type): Add Fortran support. * eval.c (OP_BOOL): Use LA_BOOL_TYPE. --- gdb/ChangeLog | 5 +++++ gdb/language.c | 9 +++++++++ 2 files changed, 14 insertions(+) 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 + + * 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) -- 2.30.2