From: Richard Kenner <kenner@gcc.gnu.org>
Date: Sat, 2 Aug 1997 18:34:12 +0000 (-0400)
Subject: (gen_compile_unit_die): Add support for Pascal.
X-Git-Tag: misc/cutover-egcs-0~11
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=bc28c45bb532b7a1fe972e428dc530aae3c6b47d;p=thirdparty%2Fgcc.git

(gen_compile_unit_die): Add support for Pascal.

From-SVN: r14628
---

diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index 9d277395d726..f777f1f0393e 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);