diff mbox series

dwarf2out: Fix up DW_AT_language for COBOL

Message ID Z9AUEx90Y78kxMbJ@tucnak
State New
Headers
Series dwarf2out: Fix up DW_AT_language for COBOL |

Commit Message

Jakub Jelinek March 11, 2025, 10:44 a.m. UTC 
  Hi!

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

Fixed thusly, ok for trunk?

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".


	Jakub

Comments

Richard Biener March 11, 2025, 11:03 a.m. UTC | #1 
On Tue, 11 Mar 2025, Jakub Jelinek wrote:

> Hi!
> 
> Seems the LANG_HOOKS_NAME change for COBOL broke debug info,
> in particular instead of DW_LANG_Cobol85 it is now DW_LANG_C.
> 
> Fixed thusly, ok for trunk?

OK.

> 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".
> 
> --- gcc/dwarf2out.cc.jj	2025-03-11 09:18:21.773133258 +0100
> +++ gcc/dwarf2out.cc	2025-03-11 11:30:44.429218288 +0100
> @@ -25448,7 +25448,7 @@ gen_compile_unit_die (const char *filena
>      }
>    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;
> 
> 	Jakub
> 
>
diff mbox series

Patch

--- gcc/dwarf2out.cc.jj	2025-03-11 09:18:21.773133258 +0100
+++ gcc/dwarf2out.cc	2025-03-11 11:30:44.429218288 +0100
@@ -25448,7 +25448,7 @@  gen_compile_unit_die (const char *filena
     }
   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;