diff options
| author | Richard Kenner <kenner@gcc.gnu.org> | 1995-10-26 21:40:40 -0400 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 1995-10-26 21:40:40 -0400 |
| commit | 439eb7764a0c430e25c41920936520b35cbd0381 (patch) | |
| tree | b383034c4ccc09e2ab838a213de865691284037e /gcc/dwarfout.c | |
| parent | c6e84dc4845c7da5bf2d477a531a23b9dee5b907 (diff) | |
| download | gcc-439eb7764a0c430e25c41920936520b35cbd0381.zip gcc-439eb7764a0c430e25c41920936520b35cbd0381.tar.gz gcc-439eb7764a0c430e25c41920936520b35cbd0381.tar.bz2 | |
(output_compile_unit_die): Handle language_string of "GNU F77".
From-SVN: r10525
Diffstat (limited to 'gcc/dwarfout.c')
| -rw-r--r-- | gcc/dwarfout.c | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/gcc/dwarfout.c b/gcc/dwarfout.c index b10de49..b484e5a 100644 --- a/gcc/dwarfout.c +++ b/gcc/dwarfout.c @@ -1,5 +1,5 @@ /* Output Dwarf format symbol table information from the GNU C compiler. - Copyright (C) 1992, 1993 Free Software Foundation, Inc. + Copyright (C) 1992, 1993, 1995 Free Software Foundation, Inc. Written by Ron Guilmette (rfg@netcom.com) for Network Computing Devices, August, September, October, November 1990. @@ -3463,6 +3463,8 @@ output_compile_unit_die (arg) language_attribute (LANG_C_PLUS_PLUS); else if (strcmp (language_string, "GNU Ada") == 0) language_attribute (LANG_ADA83); + else if (strcmp (language_string, "GNU F77") == 0) + language_attribute (LANG_FORTRAN77); else if (flag_traditional) language_attribute (LANG_C); else |