(gen_compile_unit_die): Add support for Pascal.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@14628 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c
index 9d27739..f777f1f 100644 (file)
--- 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);