diff options
Diffstat (limited to 'gcc/ada/utils.c')
| -rw-r--r-- | gcc/ada/utils.c | 19 |
1 files changed, 1 insertions, 18 deletions
diff --git a/gcc/ada/utils.c b/gcc/ada/utils.c index 1a5afb3..e09c83e 100644 --- a/gcc/ada/utils.c +++ b/gcc/ada/utils.c @@ -125,7 +125,6 @@ static tree compute_related_constant (tree, tree); static tree split_plus (tree, tree *); static bool value_zerop (tree); static void gnat_gimplify_function (tree); -static void gnat_finalize (tree); static tree float_type_for_precision (int, enum machine_mode); static tree convert_to_fat_pointer (tree, tree); static tree convert_to_thin_pointer (tree, tree); @@ -1793,8 +1792,7 @@ end_subprog_body (tree body) if (!DECL_CONTEXT (fndecl)) { gnat_gimplify_function (fndecl); - lower_nested_functions (fndecl); - gnat_finalize (fndecl); + cgraph_finalize_function (fndecl, false); } else /* Register this function with cgraph just far enough to get it @@ -1820,21 +1818,6 @@ gnat_gimplify_function (tree fndecl) for (cgn = cgn->nested; cgn; cgn = cgn->next_nested) gnat_gimplify_function (cgn->decl); } - -/* Give FNDECL and all its nested functions to cgraph for compilation. */ - -static void -gnat_finalize (tree fndecl) -{ - struct cgraph_node *cgn; - - /* Finalize all nested functions now. */ - cgn = cgraph_node (fndecl); - for (cgn = cgn->nested; cgn ; cgn = cgn->next_nested) - gnat_finalize (cgn->decl); - - cgraph_finalize_function (fndecl, false); -} /* Return a definition for a builtin function named NAME and whose data type is TYPE. TYPE should be a function type with argument types. |