gcc/gcc/tree-nested.c

710 walk_all_functions (walk_tree_fn callback, struct nesting_info *root)
714       if (root->inner)
715 	walk_all_functions (callback, root->inner);
716       walk_function (callback, root);
717       root = root->next;
719   while (root);
1762 convert_all_function_calls (struct nesting_info *root)
1766       if (root->inner)
1767 	convert_all_function_calls (root->inner);
1769       walk_function (convert_tramp_reference, root);
1770       walk_function (convert_call_expr, root);
1773       if (root->outer && !root->chain_decl && !root->chain_field)
1774 	DECL_NO_STATIC_CHAIN (root->context) = 1;
1776 	gcc_assert (!DECL_NO_STATIC_CHAIN (root->context));
1778       root = root->next;
1780   while (root);
1789 finalize_nesting_tree_1 (struct nesting_info *root)
1792   tree context = root->context;
1797   if (root->frame_type)
1803       layout_type (root->frame_type);
1805       layout_decl (root->frame_decl, 0);
1811   if (root->any_parm_remapped)
1818 	  field = lookup_field_for_decl (root, p, NO_INSERT);
1828 		      root->frame_decl, field, NULL_TREE);
1836   if (root->chain_field)
1838       tree x = build3 (COMPONENT_REF, TREE_TYPE (root->chain_field),
1839 		       root->frame_decl, root->chain_field, NULL_TREE);
1840       x = build2 (MODIFY_EXPR, TREE_TYPE (x), x, get_chain_decl (root));
1845   if (root->any_tramp_created)
1848       for (i = root->inner; i ; i = i->next)
1852 	  field = lookup_tramp_for_decl (root, i->context, NO_INSERT);
1859 	    x = build_addr (root->frame_decl, context);
1866 		      root->frame_decl, field, NULL_TREE);
1890   sf = DECL_STRUCT_FUNCTION (root->context);
1891   sf->static_chain_decl = root->chain_decl;
1894   if (root->nl_goto_field)
1897 	= get_frame_field (root, context, root->nl_goto_field, NULL);
1903   if (root->new_local_var_chain)
1904     declare_vars (root->new_local_var_chain, DECL_SAVED_TREE (root->context),
1906   if (root->debug_var_chain)
1907     declare_vars (root->debug_var_chain, DECL_SAVED_TREE (root->context),
1911   dump_function (TDI_nested, root->context);
1915 finalize_nesting_tree (struct nesting_info *root)
1919       if (root->inner)
1920 	finalize_nesting_tree (root->inner);
1921       finalize_nesting_tree_1 (root);
1922       root = root->next;
1924   while (root);
1930 unnest_nesting_tree_1 (struct nesting_info *root)
1932   struct cgraph_node *node = cgraph_node (root->context);
1938        cgraph_unnest_node (cgraph_node (root->context));
1939        cgraph_finalize_function (root->context, true);
1944 unnest_nesting_tree (struct nesting_info *root)
1948       if (root->inner)
1949 	unnest_nesting_tree (root->inner);
1950       unnest_nesting_tree_1 (root);
1951       root = root->next;
1953   while (root);
1959 free_nesting_tree (struct nesting_info *root)
1964       if (root->inner)
1965 	free_nesting_tree (root->inner);
1966       htab_delete (root->var_map);
1967       next = root->next;
1968       ggc_free (root);
1969       root = next;
1971   while (root);
1974 static GTY(()) struct nesting_info *root;
1989   root = create_nesting_tree (cgn);
1990   walk_all_functions (convert_nonlocal_reference, root);
1991   walk_all_functions (convert_local_reference, root);
1992   walk_all_functions (convert_nl_goto_reference, root);
1993   walk_all_functions (convert_nl_goto_receiver, root);
1994   convert_all_function_calls (root);
1995   finalize_nesting_tree (root);
1996   unnest_nesting_tree (root);
1997   free_nesting_tree (root);
1998   root = NULL;