(gen_compile_unit_die): Add support for Pascal.

From-SVN: r14628
This commit is contained in:
Richard Kenner 1997-08-02 14:34:12 -04:00
parent 7532a0fbfa
commit bc28c45bb5

View File

@ -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);