espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-10-17 12:53:17 +08:00
Code Issues Packages Projects Releases Wiki Activity

* language.c (lang_bool_type): Add Fortran support.

Browse Source 
* eval.c (OP_BOOL):  Use LA_BOOL_TYPE.
This commit is contained in:
Per Bothner
1996-01-24 00:16:38 +00:00
parent ae3471873e
commit ec5f347c76
2 changed files with 14 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
gdb/language.c
View File

@ -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)