Wrong language tag used for Ada in dwarf2

[Joel Brobecker]

When compiling an Ada95 program using GNAT 5, I see that the
DW_TAG_language used is DW_LANG_Ada83. Shouldn't it be DW_LANG_Ada95
instead?

Here is a patch to correct this:
<<
*** dwarf2out.c.orig    Thu Mar 28 10:40:21 2002
--- dwarf2out.c Thu Mar 28 10:40:36 2002
*************** gen_compile_unit_die (filename)
*** 10744,10750 ****
    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;
    else if (strcmp (language_string, "GNU F77") == 0)
      language = DW_LANG_Fortran77;
    else if (strcmp (language_string, "GNU Pascal") == 0)
--- 10744,10750 ----
    if (strcmp (language_string, "GNU C++") == 0)
      language = DW_LANG_C_plus_plus;
    else if (strcmp (language_string, "GNU Ada") == 0)
!     language = DW_LANG_Ada95;
    else if (strcmp (language_string, "GNU F77") == 0)
      language = DW_LANG_Fortran77;
    else if (strcmp (language_string, "GNU Pascal") == 0)
>>

Comments?
-- 
Joel