dwarf2out.c (gen_compile_unit_die): Emit DW_LANG_Ada95 instead of DW_LANG_Ada83 for...

        * 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 d5b5ca7a664a675ac3c6935251853acdc269b456..a53b3b686b5232065b7382820217c54afe7827d8 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+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.

diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index 7945d14ebc1785ec34f2de9bea5cc07311efd2c1..45a6d62126b4534f73c4c54e717a035ac491e194 100644 (file)
--- 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)