dwarf2out: Fix up DW_AT_language for COBOL

Seems the LANG_HOOKS_NAME change for COBOL broke debug info,
in particular instead of DW_LANG_Cobol85 it is now DW_LANG_C.

2025-03-11  Jakub Jelinek  <jakub@redhat.com>

	* dwarf2out.cc (gen_compile_unit_die): Use DW_LANG_Cobol85 if
	language_string is "GCC COBOL" rather than "Cobol".

diff --git a/gcc/dwarf2out.cc b/gcc/dwarf2out.cc
index 42f72c1b89dd5628065b83a009ab4d1d1659e158..e1c3532588913d924a9aa2b2dd0276b41be82ec8 100644 (file)
--- a/gcc/dwarf2out.cc
+++ b/gcc/dwarf2out.cc
@@ -25448,7 +25448,7 @@ gen_compile_unit_die (const char *filename)
     }
   else if (strcmp (language_string, "GNU F77") == 0)
     language = DW_LANG_Fortran77;
-  else if (strcmp (language_string, "Cobol") == 0)
+  else if (strcmp (language_string, "GCC COBOL") == 0)
     language = DW_LANG_Cobol85;
   else if (strcmp (language_string, "GNU Modula-2") == 0)
     language = DW_LANG_Modula2;