aboutsummaryrefslogtreecommitdiff
path: root/gdb
diff options
context:
space:
mode:
authorStan Shebs <shebs@codesourcery.com>1998-01-28 23:02:03 +0000
committerStan Shebs <shebs@codesourcery.com>1998-01-28 23:02:03 +0000
commit7074cd4e8ae04c905903546ba95f76d2e7e229b9 (patch)
tree3b49e66c20a488eb20b18655922662eb2576afb2 /gdb
parent448258693f221c8f272bcd4d9ebe40ddb682f5df (diff)
downloadgdb-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')
-rw-r--r--gdb/ChangeLog7
-rw-r--r--gdb/dwarf2read.c12
-rw-r--r--gdb/dwarfread.c6
3 files changed, 16 insertions, 9 deletions
diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 908d2b3..3c65ffc 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,10 @@
+Wed Jan 28 14:46:52 1998 Stan Shebs <shebs@andros.cygnus.com>
+
+ 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.
+
Wed Jan 28 12:51:08 1998 Michael Snyder (msnyder@cleaver.cygnus.com)
* blockframe.c (generic_frame_chain_valid): A frame pointer may
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:
diff --git a/gdb/dwarfread.c b/gdb/dwarfread.c
index 07358bd..0ef59b7 100644
--- a/gdb/dwarfread.c
+++ b/gdb/dwarfread.c
@@ -674,11 +674,13 @@ set_cu_language (dip)
case LANG_MODULA2:
cu_language = language_m2;
break;
+ case LANG_FORTRAN77:
+ case LANG_FORTRAN90:
+ cu_language = language_fortran;
+ break;
case LANG_ADA83:
case LANG_COBOL74:
case LANG_COBOL85:
- case LANG_FORTRAN77:
- case LANG_FORTRAN90:
case LANG_PASCAL83:
/* We don't know anything special about these yet. */
cu_language = language_unknown;