diff options
| author | Peter Bergner <bergner@linux.ibm.com> | 2025-04-03 10:52:29 -0500 |
|---|---|---|
| committer | Peter Bergner <bergner@linux.ibm.com> | 2025-04-03 10:52:53 -0500 |
| commit | c669ab0a866697577fec0c8c2e662640c4be4c94 (patch) | |
| tree | de4b2b709f4a89123cb2a3deedf6ddd4da3ef8eb /gcc | |
| parent | acfe19f03bccd1f3183fd5d70d7a3c8c85e62fac (diff) | |
| download | gcc-c669ab0a866697577fec0c8c2e662640c4be4c94.zip gcc-c669ab0a866697577fec0c8c2e662640c4be4c94.tar.gz gcc-c669ab0a866697577fec0c8c2e662640c4be4c94.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/config/rs6000/rs6000-logue.cc | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/config/rs6000/rs6000-logue.cc b/gcc/config/rs6000/rs6000-logue.cc index 52f44b1..5377ad6 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 () |