From: Peter Bergner <bergner@linux.ibm.com>
Date: Thu, 3 Apr 2025 15:52:29 +0000 (-0500)
Subject: rs6000: Add Cobol support to traceback table [PR119308]
X-Git-Tag: basepoints/gcc-16~365
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=c669ab0a866697577fec0c8c2e662640c4be4c94;p=thirdparty%2Fgcc.git

rs6000: Add Cobol support to traceback table [PR119308]

The AIX traceback table documentation states the tbtab "lang" field for
Cobol should be set to 7.  Use it.

2025-04-03  Peter Bergner  <bergner@linux.ibm.com>

gcc/
	PR target/119308
	* config/rs6000/rs6000-logue.cc (rs6000_output_function_epilogue):
	Handle GCC COBOL for the tbtab lang field.
---

diff --git a/gcc/config/rs6000/rs6000-logue.cc b/gcc/config/rs6000/rs6000-logue.cc
index 52f44b114b0..5377ad6cee6 100644
--- a/gcc/config/rs6000/rs6000-logue.cc
+++ b/gcc/config/rs6000/rs6000-logue.cc
@@ -5351,6 +5351,8 @@ rs6000_output_function_epilogue (FILE *file)
 	i = 1;
       else if (! strcmp (language_string, "GNU Ada"))
 	i = 3;
+      else if (! strcmp (language_string, "GCC COBOL"))
+	i = 7;
       else if (! strcmp (language_string, "GNU Modula-2"))
 	i = 8;
       else if (lang_GNU_CXX ()