diff options
| author | James K. Lowden <jklowden@symas.com> | 2025-03-10 16:05:54 +0100 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2025-03-11 07:48:27 +0100 |
| commit | 86ff23c9cbb470fb787428bf228d573c12f480a4 (patch) | |
| tree | fe406fefb1232c324dcb198d9d49b2add842b4b9 /gcc/dwarf2out.cc | |
| parent | 3c5ed996ac94a15bc2929155f2c69cc85eef89f7 (diff) | |
| download | gcc-86ff23c9cbb470fb787428bf228d573c12f480a4.zip gcc-86ff23c9cbb470fb787428bf228d573c12f480a4.tar.gz gcc-86ff23c9cbb470fb787428bf228d573c12f480a4.tar.bz2 | |
COBOL: misc
gcc/
* Makefile.in (installdirs): Create man3 directory.
* common.opt (static-libgcobol): New driver option.
* dwarf2out.cc (gen_compile_unit_die): Support Cobol as
source language.
Diffstat (limited to 'gcc/dwarf2out.cc')
| -rw-r--r-- | gcc/dwarf2out.cc | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/gcc/dwarf2out.cc b/gcc/dwarf2out.cc index ed7d940..42f72c1 100644 --- a/gcc/dwarf2out.cc +++ b/gcc/dwarf2out.cc @@ -25448,6 +25448,8 @@ 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) + language = DW_LANG_Cobol85; else if (strcmp (language_string, "GNU Modula-2") == 0) language = DW_LANG_Modula2; else if (dwarf_version >= 3 || !dwarf_strict) @@ -25504,6 +25506,9 @@ gen_compile_unit_die (const char *filename) lowercases everything. */ add_AT_unsigned (die, DW_AT_identifier_case, DW_ID_down_case); break; + case DW_LANG_Cobol85: + add_AT_unsigned (die, DW_AT_identifier_case, DW_ID_case_insensitive); + break; default: /* The default DW_ID_case_sensitive doesn't need to be specified. */ break; |