diff options
| author | Per Bothner <per@bothner.com> | 1996-01-24 00:16:38 +0000 |
|---|---|---|
| committer | Per Bothner <per@bothner.com> | 1996-01-24 00:16:38 +0000 |
| commit | ec5f347c7648d2e243c704c6ee8c5d21c5833ac7 (patch) | |
| tree | da1fc0b2107edb861a94d2d561e85cf22dfc0a75 | |
| parent | ae3471873e9b8049dfadbf612e5615ce2f0ae060 (diff) | |
| download | fsf-binutils-gdb-ec5f347c7648d2e243c704c6ee8c5d21c5833ac7.zip fsf-binutils-gdb-ec5f347c7648d2e243c704c6ee8c5d21c5833ac7.tar.gz fsf-binutils-gdb-ec5f347c7648d2e243c704c6ee8c5d21c5833ac7.tar.bz2 | |
* language.c (lang_bool_type): Add Fortran support.
* eval.c (OP_BOOL): Use LA_BOOL_TYPE.
| -rw-r--r-- | gdb/ChangeLog | 5 | ||||
| -rw-r--r-- | gdb/language.c | 9 |
2 files changed, 14 insertions, 0 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog index 129681a..0d703fb 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 0ce74fe..b9c04ae 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) |