Imagelibrary/binutils-gdb
1
0
Fork 1
mirror of https://github.com/bminor/binutils-gdb.git synced 2025-12-26 17:18:55 +00:00
Code Issues Packages Projects Releases Wiki Activity

Suggested by Chris Walter <walter@budoe.bu.edu>:

Browse Source 
* dwarfread.c (set_cu_language): Recognize Fortran.
	* dwarf2read.c (set_cu_language): Ditto.
	(read_array_type): Fix language test.
This commit is contained in:
Stan Shebs
1998-01-28 23:02:03 +00:00
parent 448258693f
commit 7074cd4e8a
3 changed files with 16 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
gdb/dwarf2read.c
View File

@@ -2496,8 +2496,7 @@ read_array_type (die, objfile)
/* Default bounds to an array with unspecified length. */
low = 0;
high = -1;
if (cu_language == DW_LANG_Fortran77
|| cu_language == DW_LANG_Fortran90)
if (cu_language == language_fortran)
{
/* FORTRAN implies a lower bound of 1, if not given. */
low = 1;
@@ -3689,22 +3688,21 @@ set_cu_language (lang)
{
case DW_LANG_C89:
case DW_LANG_C:
case DW_LANG_Fortran77:
cu_language = language_c;
break;
case DW_LANG_C_plus_plus:
cu_language = language_cplus;
break;
case DW_LANG_Fortran77:
case DW_LANG_Fortran90:
cu_language = language_fortran;
break;
case DW_LANG_Mips_Assembler:
cu_language = language_asm;
break;
case DW_LANG_Ada83:
case DW_LANG_Cobol74:
case DW_LANG_Cobol85:
#if 0
case DW_LANG_Fortran77: /* moved up top for now */
#endif
case DW_LANG_Fortran90:
case DW_LANG_Pascal83:
case DW_LANG_Modula2:
default: