diff options
| author | Bernhard Reutner-Fischer <aldot@gcc.gnu.org> | 2021-10-24 21:04:44 +0200 |
|---|---|---|
| committer | Bernhard Reutner-Fischer <aldot@gcc.gnu.org> | 2021-10-27 21:17:44 +0200 |
| commit | fd39c4bf5568bf3b71a2c547304795bd947b8efd (patch) | |
| tree | f6078624b8c5e203bc9499d0f057b8e71f284b39 /gcc/fortran/trans.c | |
| parent | 1f98c4e0c54b29fec4aba0b250ff7b5da57c1096 (diff) | |
| download | gcc-fd39c4bf5568bf3b71a2c547304795bd947b8efd.zip gcc-fd39c4bf5568bf3b71a2c547304795bd947b8efd.tar.gz gcc-fd39c4bf5568bf3b71a2c547304795bd947b8efd.tar.bz2 | |
Fortran: make some trans* functions static
This makes some trans* functions static and deletes declarations of
functions that either do not exist anymore like gfc_get_function_decl
or that are unused like gfc_check_any_c_kind.
gcc/fortran/ChangeLog:
* expr.c (is_non_empty_structure_constructor): Make static.
* gfortran.h (gfc_check_any_c_kind): Delete.
* match.c (gfc_match_label): Make static.
* match.h (gfc_match_label): Delete declaration.
* scanner.c (file_changes_cur, file_changes_count,
file_changes_allocated): Make static.
* trans-expr.c (gfc_get_character_len): Make static.
(gfc_class_len_or_zero_get): Make static.
(VTAB_GET_FIELD_GEN): Undefine.
(gfc_get_class_array_ref): Make static.
(gfc_finish_interface_mapping): Make static.
* trans-types.c (gfc_check_any_c_kind): Delete.
(pfunc_type_node, dtype_type_node, gfc_get_ppc_type): Make static.
* trans-types.h (gfc_get_ppc_type): Delete declaration.
* trans.c (gfc_msg_wrong_return): Delete.
* trans.h (gfc_class_len_or_zero_get, gfc_class_vtab_extends_get,
gfc_vptr_extends_get, gfc_get_class_array_ref, gfc_get_character_len,
gfc_finish_interface_mapping, gfc_msg_wrong_return,
gfc_get_function_decl): Delete declaration.
Diffstat (limited to 'gcc/fortran/trans.c')
| -rw-r--r-- | gcc/fortran/trans.c | 1 |
1 files changed, 0 insertions, 1 deletions
diff --git a/gcc/fortran/trans.c b/gcc/fortran/trans.c index 22f2676..a377d0e 100644 --- a/gcc/fortran/trans.c +++ b/gcc/fortran/trans.c @@ -45,7 +45,6 @@ along with GCC; see the file COPYING3. If not see static gfc_file *gfc_current_backend_file; const char gfc_msg_fault[] = N_("Array reference out of bounds"); -const char gfc_msg_wrong_return[] = N_("Incorrect function return value"); /* Return a location_t suitable for 'tree' for a gfortran locus. The way the |