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 10a42cb1dd7d346e62178aca2052795731af2189..5477aea882ab6d1df97e4aaadc37d7e664174642 100644 (file)
--- 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 4c2560a0632f26b634cf7999edb96f2767b0f453..c533ca331b8a2616c8dbaea5c137f61c6ece6928 100644 (file)
--- 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 ed7d9402200e3e829888d7bb85a3a85e38045f91..42f72c1b89dd5628065b83a009ab4d1d1659e158 100644 (file)
--- 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;