diff options
| author | Richard Kenner <kenner@gcc.gnu.org> | 1993-06-27 18:43:10 -0400 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 1993-06-27 18:43:10 -0400 |
| commit | 77b83b95e490fd150e56c39c94829a7558a6732c (patch) | |
| tree | dd9dd9f8da76cb86c94aeb7b971a9a3e3f6510a2 | |
| parent | 93e4100a851f16268461c3f308f64f0d1c004bdc (diff) | |
| download | gcc-77b83b95e490fd150e56c39c94829a7558a6732c.zip gcc-77b83b95e490fd150e56c39c94829a7558a6732c.tar.gz gcc-77b83b95e490fd150e56c39c94829a7558a6732c.tar.bz2 | |
(output_compile_unit_die): Add support for Ada.
From-SVN: r4769
| -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 cd2dca50..49339ae 100644 --- a/gcc/dwarfout.c +++ b/gcc/dwarfout.c @@ -2,7 +2,7 @@ Network Computing Devices, August, September, October, November 1990. Output Dwarf format symbol table information from the GNU C compiler. - Copyright (C) 1992 Free Software Foundation, Inc. + Copyright (C) 1992, 1993 Free Software Foundation, Inc. This file is part of GNU CC. @@ -3451,6 +3451,8 @@ output_compile_unit_die (arg) if (strcmp (language_string, "GNU C++") == 0) language_attribute (LANG_C_PLUS_PLUS); + else if (strcmp (language_string, "GNU Ada") == 0) + language_attribute (LANG_ADA83); else if (flag_traditional) language_attribute (LANG_C); else |