diff options
Diffstat (limited to 'gdb/dwarf2read.c')
| -rw-r--r-- | gdb/dwarf2read.c | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/gdb/dwarf2read.c b/gdb/dwarf2read.c index 418aaad..b01c990 100644 --- a/gdb/dwarf2read.c +++ b/gdb/dwarf2read.c @@ -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: |