Turns out that: build_function_type_list (void_type_node, void_type_node, NULL_TREE)
doesn't do what I thought it does. It resulted in a function type getting two `void' arguments, and this was triggering a warning in LTO mode. Signed-off-by: Jose E. Marchesi <[email protected]> gcc/algol68/ChangeLog * a68-low-clauses.cc (a68_lower_revelation_ludes): Fix function type for fdecl. --- gcc/algol68/a68-low-clauses.cc | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/gcc/algol68/a68-low-clauses.cc b/gcc/algol68/a68-low-clauses.cc index 26607d7f422..bdd857b7e0b 100644 --- a/gcc/algol68/a68-low-clauses.cc +++ b/gcc/algol68/a68-low-clauses.cc @@ -1407,9 +1407,9 @@ a68_lower_revelation_ludes (NODE_T *p, bool prelude) tree fdecl = build_decl (UNKNOWN_LOCATION, FUNCTION_DECL, get_identifier (fname), - build_function_type_list (void_type_node, - void_type_node, - NULL_TREE)); + build_function_type (void_type_node, + void_list_node)); + DECL_EXTERNAL (fdecl) = 1; TREE_PUBLIC (fdecl) = 1; a68_add_decl (fdecl); -- 2.39.5
