diff options
| author | Joel Brobecker <brobecker@gnat.com> | 2003-04-14 21:12:45 +0000 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 2003-04-14 17:12:45 -0400 |
| commit | 8cb5fbbf742615e6ca90e417ff8ad27dc481c6b5 (patch) | |
| tree | 61e4d892d97c67628a8b0c2ca6540afb2b5201c3 /gcc/dwarf2out.c | |
| parent | cbcafd35b7f15306afdf946eaca5be8586edf6da (diff) | |
| download | gcc-8cb5fbbf742615e6ca90e417ff8ad27dc481c6b5.zip gcc-8cb5fbbf742615e6ca90e417ff8ad27dc481c6b5.tar.gz gcc-8cb5fbbf742615e6ca90e417ff8ad27dc481c6b5.tar.bz2 | |
dwarf2out.c (gen_compile_unit_die): Emit DW_LANG_Ada95 instead of DW_LANG_Ada83 for Ada units.
* dwarf2out.c (gen_compile_unit_die): Emit DW_LANG_Ada95 instead
of DW_LANG_Ada83 for Ada units.
From-SVN: r65591
Diffstat (limited to 'gcc/dwarf2out.c')
| -rw-r--r-- | gcc/dwarf2out.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 7945d14..45a6d62 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -11447,7 +11447,7 @@ gen_compile_unit_die (filename) if (strcmp (language_string, "GNU C++") == 0) language = DW_LANG_C_plus_plus; else if (strcmp (language_string, "GNU Ada") == 0) - language = DW_LANG_Ada83; + language = DW_LANG_Ada95; else if (strcmp (language_string, "GNU F77") == 0) language = DW_LANG_Fortran77; else if (strcmp (language_string, "GNU Pascal") == 0) |