diff options
| author | Olivier Hainque <hainque@adacore.com> | 2018-06-11 09:42:54 +0000 |
|---|---|---|
| committer | Olivier Hainque <hainque@gcc.gnu.org> | 2018-06-11 09:42:54 +0000 |
| commit | 5cfcd771472e8e99f69e11e601d9adb740a762de (patch) | |
| tree | 42ef47589c217b8693df3d8ee58130d4b5627f09 /gcc/dwarf2out.c | |
| parent | 259cc9a7e0b0feae750601ace489f2cb1fbb8f80 (diff) | |
| download | gcc-5cfcd771472e8e99f69e11e601d9adb740a762de.zip gcc-5cfcd771472e8e99f69e11e601d9adb740a762de.tar.gz gcc-5cfcd771472e8e99f69e11e601d9adb740a762de.tar.bz2 | |
dwarf2out.c (gen_compile_unit_die): Fallout to DW_LANG_Ada83 for Ada with strict dwarf2.
2018-06-11 Olivier Hainque <hainque@adacore.com>
* dwarf2out.c (gen_compile_unit_die): Fallout to DW_LANG_Ada83
for Ada with strict dwarf2.
testsuite/
* gnat.dg/lang-dw2.adb: New test.
* gnat.dg/lang-dw3.adb: New test.
From-SVN: r261432
Diffstat (limited to 'gcc/dwarf2out.c')
| -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 a6b20b4..8032364 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -24460,6 +24460,9 @@ gen_compile_unit_die (const char *filename) /* Use a degraded Fortran setting in strict DWARF2 so is_fortran works. */ else if (strncmp (language_string, "GNU Fortran", 11) == 0) language = DW_LANG_Fortran90; + /* Likewise for Ada. */ + else if (strcmp (language_string, "GNU Ada") == 0) + language = DW_LANG_Ada83; add_AT_unsigned (die, DW_AT_language, language); |