Commit bc28c45b by Richard Kenner

(gen_compile_unit_die): Add support for Pascal.

From-SVN: r14628
parent 7532a0fb
...@@ -8054,6 +8054,9 @@ gen_compile_unit_die (main_input_filename) ...@@ -8054,6 +8054,9 @@ gen_compile_unit_die (main_input_filename)
else if (strcmp (language_string, "GNU F77") == 0) else if (strcmp (language_string, "GNU F77") == 0)
add_AT_unsigned (comp_unit_die, DW_AT_language, DW_LANG_Fortran77); 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) else if (flag_traditional)
add_AT_unsigned (comp_unit_die, DW_AT_language, DW_LANG_C); add_AT_unsigned (comp_unit_die, DW_AT_language, DW_LANG_C);
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment