This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[tuples] beat gcc into submission
- From: Aldy Hernandez <aldyh at redhat dot com>
- To: dnovillo at acm dot org, rth at redhat dot com, amacleod at redhat dot com, gcc-patches at gcc dot gnu dot org
- Date: Fri, 4 May 2007 10:43:03 -0400
- Subject: [tuples] beat gcc into submission
Complete noise. Disabling code to get cc1 to compile.
Committed to branch.
* omp-low.c (build_omp_barrier): Adjust arguments for sequences.
(lower_rec_input_clauses): Disable non working code.
(lower_regimplify): Pass additional argument to gimplify_expr.
* tree-mudflap.c (mx_register_decls): Disable non working code.
* tree-inline.c (copy_bb): Disable non working code.
(setup_one_parameter): Same.
* tree-cfg.c (make_edges): Same.
Index: omp-low.c
===================================================================
--- omp-low.c (revision 124007)
+++ omp-low.c (working copy)
@@ -1426,7 +1426,7 @@ scan_omp (tree *stmt_p, omp_context *ctx
/* Build a call to GOMP_barrier. */
static void
-build_omp_barrier (tree *stmt_list)
+build_omp_barrier (gs_seq stmt_list)
{
tree t = build_call_expr (built_in_decls[BUILT_IN_GOMP_BARRIER], 0);
gimplify_and_add (t, stmt_list);
@@ -1763,7 +1763,10 @@ lower_rec_input_clauses (tree clauses, t
if (x)
{
dtor = x;
+#if 0
+ /* FIXME tuples */
gimplify_stmt (&dtor);
+#endif
tsi_link_before (&diter, dtor, TSI_SAME_STMT);
}
break;
@@ -4177,11 +4180,12 @@ lower_regimplify (tree *tp, struct walk_
tree pre = NULL;
if (wi->is_lhs)
- gs = gimplify_expr (tp, &pre, NULL, is_gimple_lvalue, fb_lvalue);
+ gs = gimplify_expr (tp, NULL, &pre, NULL, is_gimple_lvalue, fb_lvalue);
else if (wi->val_only)
- gs = gimplify_expr (tp, &pre, NULL, is_gimple_val, fb_rvalue);
+ gs = gimplify_expr (tp, NULL, &pre, NULL, is_gimple_val, fb_rvalue);
else
- gs = gimplify_expr (tp, &pre, NULL, is_gimple_formal_tmp_var, fb_rvalue);
+ gs = gimplify_expr (tp, NULL, &pre, NULL,
+ is_gimple_formal_tmp_var, fb_rvalue);
gcc_assert (gs == GS_ALL_DONE);
if (pre)
Index: tree-mudflap.c
===================================================================
--- tree-mudflap.c (revision 124007)
+++ tree-mudflap.c (working copy)
@@ -1025,8 +1025,11 @@ mx_register_decls (tree decl, tree *stmt
/* Accumulate the two calls. */
/* ??? Set EXPR_LOCATION. */
+#if 0
+ /* FIXME tuples */
gimplify_stmt (®ister_fncall);
gimplify_stmt (&unregister_fncall);
+#endif
/* Add the __mf_register call at the current appending point. */
if (tsi_end_p (initially_stmts))
Index: tree-inline.c
===================================================================
--- tree-inline.c (revision 124007)
+++ tree-inline.c (working copy)
@@ -801,12 +801,15 @@ copy_bb (copy_body_data *id, basic_block
gimple_duplicate_stmt_histograms (cfun, stmt, id->src_cfun, orig_stmt);
+#if 0
+ /* FIXME tuples */
/* With return slot optimization we can end up with
non-gimple (foo *)&this->m, fix that here. */
if (TREE_CODE (stmt) == GIMPLE_MODIFY_STMT
&& TREE_CODE (GIMPLE_STMT_OPERAND (stmt, 1)) == NOP_EXPR
&& !is_gimple_val (TREE_OPERAND (GIMPLE_STMT_OPERAND (stmt, 1), 0)))
gimplify_stmt (&stmt);
+#endif
bsi_insert_after (©_bsi, stmt, BSI_NEW_STMT);
@@ -1419,7 +1422,10 @@ setup_one_parameter (copy_body_data *id,
tree_stmt_iterator i;
push_gimplify_context ();
+#if 0
+ /* FIXME tuples */
gimplify_stmt (&init_stmt);
+#endif
if (gimple_in_ssa_p (cfun)
&& init_stmt && TREE_CODE (init_stmt) == STATEMENT_LIST)
{
Index: tree-cfg.c
===================================================================
--- tree-cfg.c (revision 124007)
+++ tree-cfg.c (working copy)
@@ -501,6 +501,8 @@ make_edges (void)
fallthru = true;
break;
+#if 0
+ /* FIXME tuples */
case OMP_PARALLEL:
case OMP_FOR:
case OMP_SINGLE:
@@ -516,6 +518,7 @@ make_edges (void)
cur_region = new_omp_region (bb, code, cur_region);
fallthru = false;
break;
+#endif
case OMP_RETURN:
/* In the case of an OMP_SECTION, the edge will go somewhere
@@ -569,8 +572,11 @@ make_edges (void)
make_edge (bb, bb->next_bb, EDGE_FALLTHRU);
}
+#if 0
+ /* FIXME tuples */
if (root_omp_region)
free_omp_regions ();
+#endif
/* Fold COND_EXPR_COND of each COND_EXPR. */
fold_cond_expr_cond ();