diff options
| author | Francois-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2010-10-19 12:30:35 +0000 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2010-10-19 12:30:35 +0000 |
| commit | d35ce1095280dd3e5c3c9cc3fca7944288803649 (patch) | |
| tree | 02f60c07524ec76d2cd1aaa762d3f68c4b17464d /gcc/dwarf2out.c | |
| parent | a961aa79587ca417a9920cd2ba4df4d3144fd26d (diff) | |
| download | gcc-d35ce1095280dd3e5c3c9cc3fca7944288803649.zip gcc-d35ce1095280dd3e5c3c9cc3fca7944288803649.tar.gz gcc-d35ce1095280dd3e5c3c9cc3fca7944288803649.tar.bz2 | |
re PR fortran/43414 (DWARF4: Use DW_AT_main_subprogram for MAIN__)
PR fortran/43414
* dwarf2out.c (add_calling_convention_attribute): Flag main
Fortran subroutine with DW_AT_main_subprogram.
From-SVN: r165699
Diffstat (limited to 'gcc/dwarf2out.c')
| -rw-r--r-- | gcc/dwarf2out.c | 19 |
1 files changed, 13 insertions, 6 deletions
diff --git a/gcc/dwarf2out.c b/gcc/dwarf2out.c index 47d98f3..d19a5cd 100644 --- a/gcc/dwarf2out.c +++ b/gcc/dwarf2out.c @@ -17848,14 +17848,21 @@ add_calling_convention_attribute (dw_die_ref subr_die, tree decl) value = ((enum dwarf_calling_convention) targetm.dwarf_calling_convention (TREE_TYPE (decl))); - /* DWARF doesn't provide a way to identify a program's source-level - entry point. DW_AT_calling_convention attributes are only meant - to describe functions' calling conventions. However, lacking a - better way to signal the Fortran main program, we use this for the - time being, following existing custom. */ if (is_fortran () && !strcmp (IDENTIFIER_POINTER (DECL_ASSEMBLER_NAME (decl)), "MAIN__")) - value = DW_CC_program; + { + /* DWARF 2 doesn't provide a way to identify a program's source-level + entry point. DW_AT_calling_convention attributes are only meant + to describe functions' calling conventions. However, lacking a + better way to signal the Fortran main program, we used this for + a long time, following existing custom. Now, DWARF 4 has + DW_AT_main_subprogram, which we add below, but some tools still + rely on the old way, which we thus keep. */ + value = DW_CC_program; + + if (dwarf_version >= 4 || !dwarf_strict) + add_AT_flag (subr_die, DW_AT_main_subprogram, 1); + } /* Only add the attribute if the backend requests it, and is not DW_CC_normal. */ |