@@ -9405,17 +9405,8 @@ expand_omp_atomic (struct omp_region *region)
condition results. CLAUSES are the clauses of the parallel construct. */
static void
-oacc_alloc_broadcast_storage (omp_context *ctx, tree clauses)
+oacc_alloc_broadcast_storage (omp_context *ctx)
{
- tree vull_type_node = build_qualified_type (long_long_unsigned_type_node,
- TYPE_QUAL_VOLATILE);
- tree uptr_node = build_pointer_type (vull_type_node);
-
- tree clause = find_omp_clause (clauses, OMP_CLAUSE_NUM_WORKERS);
- tree host_count = integer_one_node;
- if (clause)
- host_count = OMP_CLAUSE_NUM_WORKERS_EXPR (clause);
-
ctx->worker_sync_elt
= alloc_var_ganglocal (NULL_TREE, long_long_unsigned_type_node,
ctx, TYPE_SIZE_UNIT (long_long_unsigned_type_node));
@@ -10459,7 +10450,6 @@ predicate_bb (basic_block bb, struct omp_region *parent, int mask)
return;
basic_block skip_dest_bb = NULL;
- basic_block *adjust_bb_ptr = NULL;
if (gimple_code (stmt) == GIMPLE_OMP_ENTRY_END)
return;
@@ -12675,7 +12665,7 @@ lower_omp_target (gimple_stmt_iterator *gsi_p, omp_context *ctx)
if (is_gimple_omp_oacc (stmt))
{
oacc_init_count_vars (ctx, clauses);
- oacc_alloc_broadcast_storage (ctx, clauses);
+ oacc_alloc_broadcast_storage (ctx);
}
if (has_reduction)