diff options
| author | Bernhard Reutner-Fischer <aldot@gcc.gnu.org> | 2021-10-24 21:22:11 +0200 |
|---|---|---|
| committer | Bernhard Reutner-Fischer <aldot@gcc.gnu.org> | 2021-10-27 21:23:44 +0200 |
| commit | e90e0301d575ee299dc823be8c489ee6248057ff (patch) | |
| tree | 30b13a3362846273be21df86137081fbcf6a310a /gcc/fortran/constructor.c | |
| parent | 28b3a7788eece202f05614dd64b8e1d0f4b766a2 (diff) | |
| download | gcc-e90e0301d575ee299dc823be8c489ee6248057ff.zip gcc-e90e0301d575ee299dc823be8c489ee6248057ff.tar.gz gcc-e90e0301d575ee299dc823be8c489ee6248057ff.tar.bz2 | |
Fortran: make some constructor* functions static
gfc_constructor_expr_foreach and gfc_constructor_swap were just stubs.
gcc/fortran/ChangeLog:
* constructor.c (gfc_constructor_get_base): Make static.
(gfc_constructor_expr_foreach, gfc_constructor_swap): Delete.
* constructor.h (gfc_constructor_get_base): Remove declaration.
(gfc_constructor_expr_foreach, gfc_constructor_swap): Delete.
Diffstat (limited to 'gcc/fortran/constructor.c')
| -rw-r--r-- | gcc/fortran/constructor.c | 20 |
1 files changed, 2 insertions, 18 deletions
diff --git a/gcc/fortran/constructor.c b/gcc/fortran/constructor.c index 3e4377a..4b5a748 100644 --- a/gcc/fortran/constructor.c +++ b/gcc/fortran/constructor.c @@ -85,7 +85,8 @@ gfc_constructor_get (void) return c; } -gfc_constructor_base gfc_constructor_get_base (void) +static gfc_constructor_base +gfc_constructor_get_base (void) { return splay_tree_new (splay_tree_compare_ints, NULL, node_free); } @@ -209,23 +210,6 @@ gfc_constructor_lookup_expr (gfc_constructor_base base, int offset) } -int -gfc_constructor_expr_foreach (gfc_constructor *ctor ATTRIBUTE_UNUSED, - int(*f)(gfc_expr *) ATTRIBUTE_UNUSED) -{ - gcc_assert (0); - return 0; -} - -void -gfc_constructor_swap (gfc_constructor *ctor ATTRIBUTE_UNUSED, - int n ATTRIBUTE_UNUSED, int m ATTRIBUTE_UNUSED) -{ - gcc_assert (0); -} - - - gfc_constructor * gfc_constructor_first (gfc_constructor_base base) { |