contrib/gcc/c-omp.c

162 check_omp_for_incr_expr (tree exp, tree decl)
167       || TYPE_PRECISION (TREE_TYPE (exp)) < TYPE_PRECISION (TREE_TYPE (decl)))
170   if (exp == decl)
176       t = check_omp_for_incr_expr (TREE_OPERAND (exp, 0), decl);
181       t = check_omp_for_incr_expr (TREE_OPERAND (exp, 0), decl);
186       t = check_omp_for_incr_expr (TREE_OPERAND (exp, 0), decl);
189       t = check_omp_for_incr_expr (TREE_OPERAND (exp, 1), decl);
207 c_finish_omp_for (location_t locus, tree decl, tree init, tree cond,
217   if (!INTEGRAL_TYPE_P (TREE_TYPE (decl)))
219       error ("%Hinvalid type for iteration variable %qE", &elocus, decl);
222   if (TYPE_UNSIGNED (TREE_TYPE (decl)))
223     warning (0, "%Hiteration variable %qE is unsigned", &elocus, decl);
225   /* In the case of "for (int i = 0...)", init will be a decl.  It should
227   if (init == decl)
229       elocus = DECL_SOURCE_LOCATION (decl);
231       init = DECL_INITIAL (decl);
234 	  error ("%H%qE is not initialized", &elocus, decl);
239       init = build_modify_expr (decl, NOP_EXPR, init);
243   gcc_assert (TREE_OPERAND (init, 0) == decl);
278 	      && decl == TREE_OPERAND (op0, 0))
281 	      TREE_OPERAND (cond, 1) = fold_build1 (NOP_EXPR, TREE_TYPE (decl),
285 		   && decl == TREE_OPERAND (op1, 0))
288 	      TREE_OPERAND (cond, 0) = fold_build1 (NOP_EXPR, TREE_TYPE (decl),
292 	  if (decl == TREE_OPERAND (cond, 0))
294 	  else if (decl == TREE_OPERAND (cond, 1))
298 	      TREE_OPERAND (cond, 0) = decl;
330 	  incr_ok = (TREE_OPERAND (incr, 0) == decl);
334 	  if (TREE_OPERAND (incr, 0) != decl)
336 	  if (TREE_OPERAND (incr, 1) == decl)
339 	      && (TREE_OPERAND (TREE_OPERAND (incr, 1), 0) == decl
340 		  || TREE_OPERAND (TREE_OPERAND (incr, 1), 1) == decl))
343 		   && TREE_OPERAND (TREE_OPERAND (incr, 1), 0) == decl)
347 	      tree t = check_omp_for_incr_expr (TREE_OPERAND (incr, 1), decl);
351 		  t = build2 (PLUS_EXPR, TREE_TYPE (decl), decl, t);
352 		  incr = build2 (MODIFY_EXPR, void_type_node, decl, t);
433 c_omp_predetermined_sharing (tree decl)
437   if (TREE_READONLY (decl))