diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2015-02-04 23:38:48 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2015-02-04 23:38:48 +0100 |
| commit | de3aebffe98c425f6368c44d32e72450139176fa (patch) | |
| tree | fc831ba012d14081b0a59fc329cfc207bc7d16aa /gcc/langhooks.c | |
| parent | a6bc87d334fa5eed69acda9813cbf369dcdf9cf2 (diff) | |
| download | gcc-de3aebffe98c425f6368c44d32e72450139176fa.zip gcc-de3aebffe98c425f6368c44d32e72450139176fa.tar.gz gcc-de3aebffe98c425f6368c44d32e72450139176fa.tar.bz2 | |
dwarf2.h (enum dwarf_source_language): Add DW_LANG_Fortran03 and DW_LANG_Fortran08.
include/
* dwarf2.h (enum dwarf_source_language): Add DW_LANG_Fortran03
and DW_LANG_Fortran08.
gcc/
* dwarf2out.c (is_fortran): Also return true for DW_LANG_Fortran03
or DW_LANG_Fortran08.
(lower_bound_default): Return 1 for DW_LANG_Fortran03 or
DW_LANG_Fortran08.
(gen_compile_unit_die): Handle "GNU Fortran2003" and
"GNU Fortran2008" language strings.
* dbxout.c (get_lang_number): Use lang_GNU_Fortran.
* langhooks.h (lang_GNU_Fortran): New prototype.
* langhooks.c (lang_GNU_Fortran): New function.
* config/rs6000/rs6000.c (rs6000_output_function_epilogue): Use
lang_GNU_Fortran.
gcc/fortran/
* options.c: Include langhooks.h.
(gfc_post_options): Change lang_hooks.name based on
selected -std= mode.
From-SVN: r220422
Diffstat (limited to 'gcc/langhooks.c')
| -rw-r--r-- | gcc/langhooks.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/gcc/langhooks.c b/gcc/langhooks.c index f68c81c..74f8351 100644 --- a/gcc/langhooks.c +++ b/gcc/langhooks.c @@ -731,3 +731,11 @@ lang_GNU_CXX (void) { return strncmp (lang_hooks.name, "GNU C++", 7) == 0; } + +/* Returns true if the current lang_hooks represents the GNU Fortran frontend. */ + +bool +lang_GNU_Fortran (void) +{ + return strncmp (lang_hooks.name, "GNU Fortran", 11) == 0; +} |