Remove Pascal language in source code.

2017-07-14  Martin Liska  <mliska@suse.cz>

	* dbxout.c (get_lang_number): Do not handle GNU Pascal.
	* dbxout.h (extern void dbxout_stab_value_internal_label_diff):
	Remove N_SO_PASCAL.
	* dwarf2out.c (lower_bound_default): Do not handle
	DW_LANG_Pascal83.
	(gen_compile_unit_die): Likewise.
	* gcc.c: Remove default extension binding for GNU Pascal.
	* stmt.c: Remove Pascal language from a comment.
	* xcoffout.c: Likewise.

From-SVN: r250197

diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index fd5b7bb951296b72af80ff8fc3cee9d228777a35..e362a9bdf7634045fb7f5717cf3dab802be86831 100644 (file)
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,15 @@
+2017-07-14  Martin Liska  <mliska@suse.cz>
+
+       * dbxout.c (get_lang_number): Do not handle GNU Pascal.
+       * dbxout.h (extern void dbxout_stab_value_internal_label_diff):
+       Remove N_SO_PASCAL.
+       * dwarf2out.c (lower_bound_default): Do not handle
+       DW_LANG_Pascal83.
+       (gen_compile_unit_die): Likewise.
+       * gcc.c: Remove default extension binding for GNU Pascal.
+       * stmt.c: Remove Pascal language from a comment.
+       * xcoffout.c: Likewise.
+
 2017-07-13  David Malcolm  <dmalcolm@redhat.com>
 
        PR c/81405

diff --git a/gcc/dbxout.c b/gcc/dbxout.c
index bb8ca3254c09f5034b3cadb4ab686e292683d19a..783a70bec4f200e17515b28f5b9fd41f6c12115f 100644 (file)
--- a/gcc/dbxout.c
+++ b/gcc/dbxout.c
@@ -952,8 +952,6 @@ get_lang_number (void)
     return N_SO_FORTRAN;
   else if (lang_GNU_Fortran ())
     return N_SO_FORTRAN90; /* CHECKME */
-  else if (strcmp (language_string, "GNU Pascal") == 0)
-    return N_SO_PASCAL;
   else if (strcmp (language_string, "GNU Objective-C") == 0)
     return N_SO_OBJC;
   else if (strcmp (language_string, "GNU Objective-C++") == 0)

diff --git a/gcc/dbxout.h b/gcc/dbxout.h
index ee6a08d2deb377ab6aa4c24eb4d3e5d77f5e5fee..c35826032538fb0006fd01e6e0eb5c0908705503 100644 (file)
--- a/gcc/dbxout.h
+++ b/gcc/dbxout.h
@@ -53,7 +53,6 @@ extern void dbxout_stab_value_internal_label_diff (const char *, int *,
 #define N_SO_ANSI_C      3
 #define N_SO_CC          4 /* c++*/
 #define N_SO_FORTRAN     5
-#define N_SO_PASCAL      6
 #define N_SO_FORTRAN90   7
 #define N_SO_OBJC        50
 #define N_SO_OBJCPLUS    51

diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index e4e776f1bac0701be13c0e7df68287d0a7accf05..ea503809bc7b9d65fa6e7f6a2e98b1ce45e9b778 100644 (file)
--- a/gcc/dwarf2out.c
+++ b/gcc/dwarf2out.c
@@ -19846,7 +19846,6 @@ lower_bound_default (void)
     case DW_LANG_Ada83:
     case DW_LANG_Cobol74:
     case DW_LANG_Cobol85:
-    case DW_LANG_Pascal83:
     case DW_LANG_Modula2:
     case DW_LANG_PLI:
       return dwarf_version >= 4 ? 1 : -1;
@@ -23536,8 +23535,6 @@ gen_compile_unit_die (const char *filename)
     }
   else if (strcmp (language_string, "GNU F77") == 0)
     language = DW_LANG_Fortran77;
-  else if (strcmp (language_string, "GNU Pascal") == 0)
-    language = DW_LANG_Pascal83;
   else if (dwarf_version >= 3 || !dwarf_strict)
     {
       if (strcmp (language_string, "GNU Ada") == 0)

diff --git a/gcc/gcc.c b/gcc/gcc.c
index e8e3d6687c352f522350d63032df585e679059bd..f19799382b7e5e27b42e8d3f513b0ca883070452 100644 (file)
--- a/gcc/gcc.c
+++ b/gcc/gcc.c
@@ -1305,7 +1305,6 @@ static const struct compiler default_compilers[] =
   {".f03", "#Fortran", 0, 0, 0}, {".F03", "#Fortran", 0, 0, 0},
   {".f08", "#Fortran", 0, 0, 0}, {".F08", "#Fortran", 0, 0, 0},
   {".r", "#Ratfor", 0, 0, 0},
-  {".p", "#Pascal", 0, 0, 0}, {".pas", "#Pascal", 0, 0, 0},
   {".java", "#Java", 0, 0, 0}, {".class", "#Java", 0, 0, 0},
   {".zip", "#Java", 0, 0, 0}, {".jar", "#Java", 0, 0, 0},
   {".go", "#Go", 0, 1, 0},

diff --git a/gcc/stmt.c b/gcc/stmt.c
index 10d394eee695d9bc7d204cc73d0c7ca281f67310..05e24f00707fbc92d836d0bd4c2b4a99b31645a3 100644 (file)
--- a/gcc/stmt.c
+++ b/gcc/stmt.c
@@ -1105,7 +1105,7 @@ compute_cases_per_edge (gswitch *stmt)
     }
 }
 
-/* Terminate a case (Pascal/Ada) or switch (C) statement
+/* Terminate a case Ada or switch (C) statement
    in which ORIG_INDEX is the expression to be tested.
    If ORIG_TYPE is not NULL, it is the original ORIG_INDEX
    type as given in the source before any compiler conversions.

diff --git a/gcc/xcoffout.c b/gcc/xcoffout.c
index c6eab21a55d644963361066c595a04e8e9cd877f..17b201aced6aaee44b59c3f4804255aaad7517c9 100644 (file)
--- a/gcc/xcoffout.c
+++ b/gcc/xcoffout.c
@@ -143,7 +143,7 @@ static const struct xcoff_type_number xcoff_type_numbers[] = {
   { "float", -12 },
   { "double", -13 },
   { "long double", -14 },
-  /* Pascal and Fortran types run from -15 to -29.  */
+  /* Fortran types run from -15 to -29.  */
   { "wchar", -30 },  /* XXX Should be "wchar_t" ? */
   { "long long int", -31 },
   { "long long unsigned int", -32 },