From d6d4718ab7b8b6b00468da3bcd14f299d32a32e7 Mon Sep 17 00:00:00 2001 From: Martin Liska Date: Fri, 14 Jul 2017 09:05:27 +0200 Subject: Remove Pascal language in source code. 2017-07-14 Martin Liska * 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 --- gcc/dwarf2out.c | 3 --- 1 file changed, 3 deletions(-) (limited to 'gcc/dwarf2out.c') 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) -- cgit v1.1