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 /gdb/language.c | |
| 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.
Diffstat (limited to 'gdb/language.c')
| -rw-r--r-- | gdb/language.c | 9 |
1 files changed, 9 insertions, 0 deletions
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) |