diff options
| author | Bernhard Reutner-Fischer <aldot@gcc.gnu.org> | 2021-10-27 23:01:21 +0200 |
|---|---|---|
| committer | Bernhard Reutner-Fischer <aldot@gcc.gnu.org> | 2021-11-05 22:09:04 +0100 |
| commit | c64ca0e7bbe193b95f50b0d3daf9ff7b710d6c6b (patch) | |
| tree | f544c47de925d93422e9961d0dd573f2feedd0d3 /gcc/fortran/symbol.c | |
| parent | 452a0afbace650d7c0f2811e2b47e62dcd18e1fd (diff) | |
| download | gcc-c64ca0e7bbe193b95f50b0d3daf9ff7b710d6c6b.zip gcc-c64ca0e7bbe193b95f50b0d3daf9ff7b710d6c6b.tar.gz gcc-c64ca0e7bbe193b95f50b0d3daf9ff7b710d6c6b.tar.bz2 | |
Fortran: Delete unused decl in gfortran.h
gcc/fortran/ChangeLog:
* decl.c (gfc_insert_kind_parameter_exprs): Make static.
* expr.c (gfc_build_init_expr): Make static
(gfc_build_default_init_expr): Move below its static helper.
* gfortran.h (gfc_insert_kind_parameter_exprs, gfc_add_saved_common,
gfc_add_common, gfc_use_derived_tree, gfc_free_charlen,
gfc_get_ultimate_derived_super_type,
gfc_resolve_oacc_parallel_loop_blocks, gfc_build_init_expr,
gfc_iso_c_sub_interface): Delete.
* symbol.c (gfc_new_charlen, gfc_get_derived_super_type): Make
static.
Diffstat (limited to 'gcc/fortran/symbol.c')
| -rw-r--r-- | gcc/fortran/symbol.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index d6f53f4..8c9a1d0 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -3985,7 +3985,7 @@ gfc_new_charlen (gfc_namespace *ns, gfc_charlen *old_cl) /* Free the charlen list from cl to end (end is not freed). Free the whole list if end is NULL. */ -void +static void gfc_free_charlen (gfc_charlen *cl, gfc_charlen *end) { gfc_charlen *cl2; @@ -5108,7 +5108,7 @@ gfc_get_derived_super_type (gfc_symbol* derived) /* Get the ultimate super-type of a given derived type. */ -gfc_symbol* +static gfc_symbol* gfc_get_ultimate_derived_super_type (gfc_symbol* derived) { if (!derived->attr.extension) |