From: Joel Brobecker Date: Mon, 14 Apr 2003 21:12:45 +0000 (+0000) Subject: dwarf2out.c (gen_compile_unit_die): Emit DW_LANG_Ada95 instead of DW_LANG_Ada83 for... X-Git-Tag: releases/gcc-3.4.0~7304 X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=8cb5fbbf742615e6ca90e417ff8ad27dc481c6b5;p=thirdparty%2Fgcc.git 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 --- diff --git a/gcc/ChangeLog b/gcc/ChangeLog index d5b5ca7a664a..a53b3b686b52 100644 --- a/gcc/ChangeLog +++ b/gcc/ChangeLog @@ -1,3 +1,8 @@ +2003-04-14 Joel Brobecker + + * dwarf2out.c (gen_compile_unit_die): Emit DW_LANG_Ada95 instead + of DW_LANG_Ada83 for Ada units. + 2003-04-14 Olivier Hainque * fold-const.c (fold): Reorder tests for conditional expressions. diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 7945d14ebc17..45a6d62126b4 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)