From bc28c45bb532b7a1fe972e428dc530aae3c6b47d Mon Sep 17 00:00:00 2001 From: Richard Kenner Date: Sat, 2 Aug 1997 14:34:12 -0400 Subject: [PATCH] (gen_compile_unit_die): Add support for Pascal. From-SVN: r14628 --- gcc/dwarf2out.c | 3 +++ 1 file changed, 3 insertions(+) diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 9d277395d72..f777f1f0393 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -8054,6 +8054,9 @@ gen_compile_unit_die (main_input_filename) else if (strcmp (language_string, "GNU F77") == 0) add_AT_unsigned (comp_unit_die, DW_AT_language, DW_LANG_Fortran77); + else if (strcmp (language_string, "GNU Pascal") == 0) + add_AT_unsigned (comp_unit_die, DW_AT_language, DW_LANG_Pascal83); + else if (flag_traditional) add_AT_unsigned (comp_unit_die, DW_AT_language, DW_LANG_C);