diff options
| author | Richard Kenner <kenner@gcc.gnu.org> | 1997-08-02 14:34:12 -0400 |
|---|---|---|
| committer | Richard Kenner <kenner@gcc.gnu.org> | 1997-08-02 14:34:12 -0400 |
| commit | bc28c45bb532b7a1fe972e428dc530aae3c6b47d (patch) | |
| tree | 91943f5d5a10d68f4f0cfae950bbc805c197c5eb | |
| parent | 7532a0fbfa17356d45be624e4145728d6fd287dd (diff) | |
| download | gcc-bc28c45bb532b7a1fe972e428dc530aae3c6b47d.zip gcc-bc28c45bb532b7a1fe972e428dc530aae3c6b47d.tar.gz gcc-bc28c45bb532b7a1fe972e428dc530aae3c6b47d.tar.bz2 | |
(gen_compile_unit_die): Add support for Pascal.
From-SVN: r14628
| -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 9d27739..f777f1f 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); |