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

gcc/ChangeLog

+2003-04-14  Joel Brobecker  <brobecker@gnat.com>
+
+        * dwarf2out.c (gen_compile_unit_die): Emit DW_LANG_Ada95 instead
+        of DW_LANG_Ada83 for Ada units.
+
 2003-04-14  Olivier Hainque <hainque@act-europe.fr>
 
         * fold-const.c (fold): Reorder tests for conditional expressions.

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)