From: James K. Lowden <jklowden@symas.com>
Date: Mon, 10 Mar 2025 15:05:54 +0000 (+0100)
Subject: COBOL: misc
X-Git-Tag: basepoints/gcc-16~1614
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=86ff23c9cbb470fb787428bf228d573c12f480a4;p=thirdparty%2Fgcc.git

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

diff --git a/gcc/Makefile.in b/gcc/Makefile.in
index 10a42cb1dd7..5477aea882a 100644
--- a/gcc/Makefile.in
+++ b/gcc/Makefile.in
@@ -748,6 +748,7 @@ datadir = @datadir@
 localedir = $(datadir)/locale
 # Extension (if any) to put in installed man-page filename.
 man1ext = .1
+man3ext = .3
 man7ext = .7
 objext = .o
 exeext = @host_exeext@
@@ -756,6 +757,7 @@ build_exeext = @build_exeext@
 # Directory in which to put man pages.
 mandir = @mandir@
 man1dir = $(mandir)/man1
+man3dir = $(mandir)/man3
 man7dir = $(mandir)/man7
 # Dir for temp files.
 tmpdir = /tmp
@@ -4031,6 +4033,7 @@ installdirs:
 	$(mkinstalldirs) $(DESTDIR)$(includedir)
 	$(mkinstalldirs) $(DESTDIR)$(infodir)
 	$(mkinstalldirs) $(DESTDIR)$(man1dir)
+	$(mkinstalldirs) $(DESTDIR)$(man3dir)
 	$(mkinstalldirs) $(DESTDIR)$(man7dir)
 
 PLUGIN_HEADERS = $(TREE_H) $(CONFIG_H) $(SYSTEM_H) coretypes.h $(TM_H) \
diff --git a/gcc/common.opt b/gcc/common.opt
index 4c2560a0632..c533ca331b8 100644
--- a/gcc/common.opt
+++ b/gcc/common.opt
@@ -3892,6 +3892,10 @@ static-libgfortran
 Driver
 ; Documented for Fortran, but always accepted by driver.
 
+static-libgcobol
+Driver
+; Documented for COBOL, but always accepted by driver.
+
 static-libgm2
 Driver
 ; Documented for Modula-2, but always accepted by driver.
diff --git a/gcc/dwarf2out.cc b/gcc/dwarf2out.cc
index ed7d9402200..42f72c1b89d 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;