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

(output_compile_unit_die): Add support for Pascal.

From-SVN: r14627
---

diff --git a/gcc/dwarfout.c b/gcc/dwarfout.c
index 8f0945126817..0c73fcd30a8a 100644
--- a/gcc/dwarfout.c
+++ b/gcc/dwarfout.c
@@ -3661,6 +3661,8 @@ output_compile_unit_die (arg)
     language_attribute (LANG_ADA83);
   else if (strcmp (language_string, "GNU F77") == 0)
     language_attribute (LANG_FORTRAN77);
+  else if (strcmp (language_string, "GNU Pascal") == 0)
+    language_attribute (LANG_PASCAL83);
   else if (flag_traditional)
     language_attribute (LANG_C);
   else