diff options
| author | Martin Liska <mliska@suse.cz> | 2017-07-14 09:05:27 +0200 |
|---|---|---|
| committer | Martin Liska <marxin@gcc.gnu.org> | 2017-07-14 07:05:27 +0000 |
| commit | d6d4718ab7b8b6b00468da3bcd14f299d32a32e7 (patch) | |
| tree | dd9257119f07cb862922c3cc8858f83b9512071a /gcc | |
| parent | f16b1783fb8bd8fc1e53613fb3a7397d5b287985 (diff) | |
| download | gcc-d6d4718ab7b8b6b00468da3bcd14f299d32a32e7.zip gcc-d6d4718ab7b8b6b00468da3bcd14f299d32a32e7.tar.gz gcc-d6d4718ab7b8b6b00468da3bcd14f299d32a32e7.tar.bz2 | |
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
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ChangeLog | 12 | ||||
| -rw-r--r-- | gcc/dbxout.c | 2 | ||||
| -rw-r--r-- | gcc/dbxout.h | 1 | ||||
| -rw-r--r-- | gcc/dwarf2out.c | 3 | ||||
| -rw-r--r-- | gcc/gcc.c | 1 | ||||
| -rw-r--r-- | gcc/stmt.c | 2 | ||||
| -rw-r--r-- | gcc/xcoffout.c | 2 |
7 files changed, 14 insertions, 9 deletions
diff --git a/gcc/ChangeLog b/gcc/ChangeLog index fd5b7bb..e362a9b 100644 --- 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 bb8ca32..783a70b 100644 --- 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 ee6a08d..c358260 100644 --- 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 e4e776f..ea50380 100644 --- 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) @@ -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}, @@ -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 c6eab21..17b201a 100644 --- 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 }, |