contrib/gcc/tree-nested.c

25 #include "tree.h"
29 #include "tree-dump.h"
30 #include "tree-inline.h"
31 #include "tree-gimple.h"
32 #include "tree-iterator.h"
33 #include "tree-flow.h"
82   tree old;
83   tree new;
96   tree context;
97   tree new_local_var_chain;
98   tree debug_var_chain;
99   tree frame_type;
100   tree frame_decl;
101   tree chain_field;
102   tree chain_decl;
103   tree nl_goto_field;
135 static tree
136 create_tmp_var_for (struct nesting_info *info, tree type, const char *prefix)
138   tree tmp_var;
162 tree
163 build_addr (tree exp, tree context)
165   tree base = exp;
166   tree save_context;
167   tree retval;
192 insert_field_into_struct (tree type, tree field)
194   tree *p;
213 static tree
216   tree type = info->frame_type;
247 use_pointer_in_frame (tree decl)
266 static tree
267 lookup_field_for_decl (struct nesting_info *info, tree decl,
272   tree field;
324 static tree
327   tree decl = info->chain_decl;
330       tree type;
348       /* Tell tree-inline.c that we never write to this variable, so
361 static tree
364   tree field = info->chain_field;
367       tree type = build_pointer_type (get_frame_type (info->outer));
385 static tree
386 init_tmp_var (struct nesting_info *info, tree exp, tree_stmt_iterator *tsi)
388   tree t, stmt;
400 static tree
401 tsi_gimplify_val (struct nesting_info *info, tree exp, tree_stmt_iterator *tsi)
412 static tree
413 save_tmp_var (struct nesting_info *info, tree exp,
416   tree t, stmt;
428 static GTY(()) tree trampoline_type;
430 static tree
433   tree record, t;
467 static tree
468 lookup_tramp_for_decl (struct nesting_info *info, tree decl,
473   tree field;
510 static tree
513   tree field = info->nl_goto_field;
517       tree type;
553 walk_asm_expr (struct walk_stmt_info *wi, tree stmt)
559   tree link;
595 walk_stmts (struct walk_stmt_info *wi, tree *tp)
597   tree t = *tp;
687 walk_body (walk_tree_fn callback, struct nesting_info *info, tree *stmt_p)
741    It would be better to do this in tree-inline.c so that we could give
747 check_for_nested_with_variably_modified (tree fndecl, tree orig_fndecl)
750   tree arg;
766    tree rooted by CGN.  */
796 static tree
797 get_static_chain (struct nesting_info *info, tree target_context,
801   tree x;
813 	  tree field = get_chain_field (i);
828 static tree
829 get_frame_field (struct nesting_info *info, tree target_context,
830 		 tree field, tree_stmt_iterator *tsi)
833   tree x;
847 	  tree field = get_chain_field (i);
866 static tree
867 get_nonlocal_debug_decl (struct nesting_info *info, tree decl)
870   tree target_context;
872   tree x, field, new_decl;
943 static bool convert_nonlocal_omp_clauses (tree *, struct walk_stmt_info *);
945 static tree
946 convert_nonlocal_reference (tree *tp, int *walk_subtrees, void *data)
950   tree t = *tp;
951   tree save_local_var_chain;
966 	  tree x;
972 	      tree target_context = decl_function_context (t);
1028 	    tree save_context;
1088 	  tree c, decl;
1136 convert_nonlocal_omp_clauses (tree *pclauses, struct walk_stmt_info *wi)
1140   tree clause, decl;
1199 static tree
1200 get_local_debug_decl (struct nesting_info *info, tree decl, tree field)
1203   tree x, new_decl;
1250 static bool convert_local_omp_clauses (tree *, struct walk_stmt_info *);
1252 static tree
1253 convert_local_reference (tree *tp, int *walk_subtrees, void *data)
1257   tree t = *tp, field, x;
1259   tree save_local_var_chain;
1313 	  tree save_context;
1374 	  tree c;
1422 convert_local_omp_clauses (tree *pclauses, struct walk_stmt_info *wi)
1426   tree clause, decl;
1447 	      tree field = lookup_field_for_decl (info, decl, NO_INSERT);
1489 static tree
1490 convert_nl_goto_reference (tree *tp, int *walk_subtrees, void *data)
1494   tree t = *tp, label, new_label, target_context, x, arg, field;
1557 static tree
1558 convert_nl_goto_receiver (tree *tp, int *walk_subtrees, void *data)
1562   tree t = *tp, label, new_label, x;
1596 static tree
1597 convert_tramp_reference (tree *tp, int *walk_subtrees, void *data)
1601   tree t = *tp, decl, target_context, x, arg;
1675 static tree
1676 convert_call_expr (tree *tp, int *walk_subtrees, void *data)
1680   tree t = *tp, decl, target_context;
1714 	  tree c, decl;
1752 /* Walk the nesting tree starting with ROOT, depth first.  Convert all
1786   tree stmt_list = NULL;
1787   tree context = root->context;
1808       tree p;
1811 	  tree field, x, y;
1833       tree x = build3 (COMPONENT_REF, TREE_TYPE (root->chain_field),
1845 	  tree arg, x, field;
1905   /* Dump the translated tree function.  */
1976 lower_nested_functions (tree fndecl, bool skip_outermost_fndecl)
2004 #include "gt-tree-nested.h"