(gen_compile_unit_die): Add support for Pascal.

From-SVN: r14628

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