diff options
| author | Richard Kenner <kenner@vlsi1.ultra.nyu.edu> | 1997-08-02 18:34:12 +0000 |
|---|---|---|
| committer | Richard Kenner <kenner@vlsi1.ultra.nyu.edu> | 1997-08-02 18:34:12 +0000 |
| commit | 128a582d3e7b0e40b5b070c859f3791c66704d37 (patch) | |
| tree | 91943f5d5a10d68f4f0cfae950bbc805c197c5eb | |
| parent | 80b0e70d778717280a398f3a1a3ddd766e079689 (diff) | |
(gen_compile_unit_die): Add support for Pascal.
git-svn-id: https://gcc.gnu.org/svn/gcc/trunk@14628 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/dwarf2out.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 9d277395d72..f777f1f0393 100644 --- 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); |