2006-08-15 Jakub Jelinek <jakub@redhat.com>
+ PR middle-end/28713
+ * omp-low.c (lower_omp_parallel): Convert t to
+ receiver_decl's type.
+ (expand_omp_parallel): STRIP_NOPS from the MODIFY_EXPR
+ source before comparison.
+
PR middle-end/28724
* gimplify.c (gimplify_omp_atomic_pipeline): Convert oldival
to itype in assignment to oldival2.
for (si = bsi_start (entry_succ_bb); ; bsi_next (&si))
{
- tree stmt;
+ tree stmt, arg;
gcc_assert (!bsi_end_p (si));
stmt = bsi_stmt (si);
- if (TREE_CODE (stmt) == MODIFY_EXPR
- && TREE_CODE (TREE_OPERAND (stmt, 1)) == ADDR_EXPR
- && TREE_OPERAND (TREE_OPERAND (stmt, 1), 0)
+ if (TREE_CODE (stmt) != MODIFY_EXPR)
+ continue;
+
+ arg = TREE_OPERAND (stmt, 1);
+ STRIP_NOPS (arg);
+ if (TREE_CODE (arg) == ADDR_EXPR
+ && TREE_OPERAND (arg, 0)
== OMP_PARALLEL_DATA_ARG (entry_stmt))
{
if (TREE_OPERAND (stmt, 0) == DECL_ARGUMENTS (child_fn))
if (ctx->record_type)
{
t = build_fold_addr_expr (ctx->sender_decl);
+ /* fixup_child_record_type might have changed receiver_decl's type. */
+ t = fold_convert (TREE_TYPE (ctx->receiver_decl), t);
t = build2 (MODIFY_EXPR, void_type_node, ctx->receiver_decl, t);
append_to_statement_list (t, &new_body);
}