diff options
| author | Stan Shebs <shebs@codesourcery.com> | 1998-01-28 23:02:03 +0000 |
|---|---|---|
| committer | Stan Shebs <shebs@codesourcery.com> | 1998-01-28 23:02:03 +0000 |
| commit | 7074cd4e8ae04c905903546ba95f76d2e7e229b9 (patch) | |
| tree | 3b49e66c20a488eb20b18655922662eb2576afb2 /gdb/dwarf2read.c | |
| parent | 448258693f221c8f272bcd4d9ebe40ddb682f5df (diff) | |
| download | gdb-7074cd4e8ae04c905903546ba95f76d2e7e229b9.zip gdb-7074cd4e8ae04c905903546ba95f76d2e7e229b9.tar.gz gdb-7074cd4e8ae04c905903546ba95f76d2e7e229b9.tar.bz2 | |
Suggested by Chris Walter <walter@budoe.bu.edu>:
* dwarfread.c (set_cu_language): Recognize Fortran.
* dwarf2read.c (set_cu_language): Ditto.
(read_array_type): Fix language test.
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: |