From: Jakub Jelinek <jakub@redhat.com>
Date: Tue, 11 Mar 2025 11:06:28 +0000 (+0100)
Subject: dwarf2out: Fix up DW_AT_language for COBOL
X-Git-Tag: basepoints/gcc-16~1597
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=86eb3fb520b2a2026f6816ab51b88180b85d6882;p=thirdparty%2Fgcc.git

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 42f72c1b89d..e1c35325889 100644
--- 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;