This is the mail archive of the gcc-patches@gcc.gnu.org mailing list for the GCC project.


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]
Other format: [Raw text]

[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 (&register_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 (&copy_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 ();


Index Nav: [Date Index] [Subject Index] [Author Index] [Thread Index]
Message Nav: [Date Prev] [Date Next] [Thread Prev] [Thread Next]