diff options
Diffstat (limited to 'gcc/omp-low.c')
| -rw-r--r-- | gcc/omp-low.c | 36 |
1 files changed, 18 insertions, 18 deletions
diff --git a/gcc/omp-low.c b/gcc/omp-low.c index 7193c1f..723c2a7 100644 --- a/gcc/omp-low.c +++ b/gcc/omp-low.c @@ -841,7 +841,7 @@ omp_copy_decl_2 (tree var, tree name, tree type, omp_context *ctx) tree copy = copy_var_decl (var, name, type); DECL_CONTEXT (copy) = current_function_decl; - TREE_CHAIN (copy) = ctx->block_vars; + DECL_CHAIN (copy) = ctx->block_vars; ctx->block_vars = copy; return copy; @@ -1286,13 +1286,13 @@ delete_omp_context (splay_tree_value value) if (ctx->record_type) { tree t; - for (t = TYPE_FIELDS (ctx->record_type); t ; t = TREE_CHAIN (t)) + for (t = TYPE_FIELDS (ctx->record_type); t ; t = DECL_CHAIN (t)) DECL_ABSTRACT_ORIGIN (t) = NULL; } if (ctx->srecord_type) { tree t; - for (t = TYPE_FIELDS (ctx->srecord_type); t ; t = TREE_CHAIN (t)) + for (t = TYPE_FIELDS (ctx->srecord_type); t ; t = DECL_CHAIN (t)) DECL_ABSTRACT_ORIGIN (t) = NULL; } @@ -1314,7 +1314,7 @@ fixup_child_record_type (omp_context *ctx) variably_modified_type_p doesn't work the way we expect for record types. Testing each field for whether it needs remapping and creating a new record by hand works, however. */ - for (f = TYPE_FIELDS (type); f ; f = TREE_CHAIN (f)) + for (f = TYPE_FIELDS (type); f ; f = DECL_CHAIN (f)) if (variably_modified_type_p (TREE_TYPE (f), ctx->cb.src_fn)) break; if (f) @@ -1327,12 +1327,12 @@ fixup_child_record_type (omp_context *ctx) TYPE_DECL, name, type); TYPE_NAME (type) = name; - for (f = TYPE_FIELDS (ctx->record_type); f ; f = TREE_CHAIN (f)) + for (f = TYPE_FIELDS (ctx->record_type); f ; f = DECL_CHAIN (f)) { tree new_f = copy_node (f); DECL_CONTEXT (new_f) = type; TREE_TYPE (new_f) = remap_type (TREE_TYPE (f), &ctx->cb); - TREE_CHAIN (new_f) = new_fields; + DECL_CHAIN (new_f) = new_fields; walk_tree (&DECL_SIZE (new_f), copy_tree_body_r, &ctx->cb, NULL); walk_tree (&DECL_SIZE_UNIT (new_f), copy_tree_body_r, &ctx->cb, NULL); @@ -1596,7 +1596,7 @@ create_omp_child_function (omp_context *ctx, bool task_copy) DECL_CONTEXT (t) = current_function_decl; TREE_USED (t) = 1; TREE_ADDRESSABLE (t) = 1; - TREE_CHAIN (t) = DECL_ARGUMENTS (decl); + DECL_CHAIN (t) = DECL_ARGUMENTS (decl); DECL_ARGUMENTS (decl) = t; } @@ -1721,7 +1721,7 @@ scan_omp_task (gimple_stmt_iterator *gsi, omp_context *outer_ctx) q = &TREE_CHAIN (*q); } else - p = &TREE_CHAIN (*p); + p = &DECL_CHAIN (*p); *p = vla_fields; layout_type (ctx->record_type); fixup_child_record_type (ctx); @@ -2009,7 +2009,7 @@ scan_omp_1_stmt (gimple_stmt_iterator *gsi, bool *handled_ops_p, *handled_ops_p = false; if (ctx) - for (var = gimple_bind_vars (stmt); var ; var = TREE_CHAIN (var)) + for (var = gimple_bind_vars (stmt); var ; var = DECL_CHAIN (var)) insert_decl_map (&ctx->cb, var, var); } break; @@ -2838,7 +2838,7 @@ lower_send_shared_vars (gimple_seq *ilist, gimple_seq *olist, omp_context *ctx) return; record_type = ctx->srecord_type ? ctx->srecord_type : ctx->record_type; - for (f = TYPE_FIELDS (record_type); f ; f = TREE_CHAIN (f)) + for (f = TYPE_FIELDS (record_type); f ; f = DECL_CHAIN (f)) { ovar = DECL_ABSTRACT_ORIGIN (f); nvar = maybe_lookup_decl (ovar, ctx); @@ -3146,7 +3146,7 @@ vec2chain (VEC(tree,gc) *v) FOR_EACH_VEC_ELT_REVERSE (tree, v, ix, t) { - TREE_CHAIN (t) = chain; + DECL_CHAIN (t) = chain; chain = t; } @@ -3227,7 +3227,7 @@ remove_exit_barrier (struct omp_region *region) { for (local_decls = BLOCK_VARS (block); local_decls; - local_decls = TREE_CHAIN (local_decls)) + local_decls = DECL_CHAIN (local_decls)) if (TREE_ADDRESSABLE (local_decls)) { any_addressable_vars = 1; @@ -3463,7 +3463,7 @@ expand_omp_taskreg (struct omp_region *region) /* The gimplifier could record temporaries in parallel/task block rather than in containing function's local_decls chain, which would mean cgraph missed finalizing them. Do it now. */ - for (t = BLOCK_VARS (block); t; t = TREE_CHAIN (t)) + for (t = BLOCK_VARS (block); t; t = DECL_CHAIN (t)) if (TREE_CODE (t) == VAR_DECL && TREE_STATIC (t) && !DECL_EXTERNAL (t)) @@ -3473,7 +3473,7 @@ expand_omp_taskreg (struct omp_region *region) TREE_USED (block) = 1; /* Reset DECL_CONTEXT on function arguments. */ - for (t = DECL_ARGUMENTS (child_fn); t; t = TREE_CHAIN (t)) + for (t = DECL_ARGUMENTS (child_fn); t; t = DECL_CHAIN (t)) DECL_CONTEXT (t) = child_fn; /* Split ENTRY_BB at GIMPLE_OMP_PARALLEL or GIMPLE_OMP_TASK, @@ -6221,7 +6221,7 @@ create_task_copyfn (gimple task_stmt, omp_context *ctx) DECL_SAVED_TREE (child_fn) = alloc_stmt_list (); /* Reset DECL_CONTEXT on function arguments. */ - for (t = DECL_ARGUMENTS (child_fn); t; t = TREE_CHAIN (t)) + for (t = DECL_ARGUMENTS (child_fn); t; t = DECL_CHAIN (t)) DECL_CONTEXT (t) = child_fn; /* Populate the function. */ @@ -6237,13 +6237,13 @@ create_task_copyfn (gimple task_stmt, omp_context *ctx) /* Remap src and dst argument types if needed. */ record_type = ctx->record_type; srecord_type = ctx->srecord_type; - for (f = TYPE_FIELDS (record_type); f ; f = TREE_CHAIN (f)) + for (f = TYPE_FIELDS (record_type); f ; f = DECL_CHAIN (f)) if (variably_modified_type_p (TREE_TYPE (f), ctx->cb.src_fn)) { record_needs_remap = true; break; } - for (f = TYPE_FIELDS (srecord_type); f ; f = TREE_CHAIN (f)) + for (f = TYPE_FIELDS (srecord_type); f ; f = DECL_CHAIN (f)) if (variably_modified_type_p (TREE_TYPE (f), ctx->cb.src_fn)) { srecord_needs_remap = true; @@ -6276,7 +6276,7 @@ create_task_copyfn (gimple task_stmt, omp_context *ctx) arg = DECL_ARGUMENTS (child_fn); TREE_TYPE (arg) = build_pointer_type (record_type); - sarg = TREE_CHAIN (arg); + sarg = DECL_CHAIN (arg); TREE_TYPE (sarg) = build_pointer_type (srecord_type); /* First pass: initialize temporaries used in record_type and srecord_type |