| /netbsd-src/external/mit/isl/dist/include/isl/ |
| H A D | ast.h | 28 __isl_give isl_ast_expr *isl_ast_expr_add(__isl_take isl_ast_expr *expr1,
30 __isl_give isl_ast_expr *isl_ast_expr_sub(__isl_take isl_ast_expr *expr1,
32 __isl_give isl_ast_expr *isl_ast_expr_mul(__isl_take isl_ast_expr *expr1,
34 __isl_give isl_ast_expr *isl_ast_expr_div(__isl_take isl_ast_expr *expr1,
36 __isl_give isl_ast_expr *isl_ast_expr_pdiv_q(__isl_take isl_ast_expr *expr1,
38 __isl_give isl_ast_expr *isl_ast_expr_pdiv_r(__isl_take isl_ast_expr *expr1,
40 __isl_give isl_ast_expr *isl_ast_expr_and(__isl_take isl_ast_expr *expr1,
42 __isl_give isl_ast_expr *isl_ast_expr_and_then(__isl_take isl_ast_expr *expr1,
44 __isl_give isl_ast_expr *isl_ast_expr_or(__isl_take isl_ast_expr *expr1,
46 __isl_give isl_ast_expr *isl_ast_expr_or_else(__isl_take isl_ast_expr *expr1,
[all …]
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | trans-stmt.cc | 104 gfc_conv_label_variable (&se, code->expr1); in gfc_trans_label_assign()
151 gfc_conv_label_variable (&se, code->expr1); in gfc_trans_goto()
371 return gfc_get_intrinsic_for_expr (code->expr1); in get_intrinsic_for_code()
424 code->ext.actual, code->expr1, NULL); in gfc_trans_call()
437 sym = select_code->expr1->symtree->n.sym; in gfc_trans_call()
473 if (code->expr1) in gfc_trans_call()
474 gfc_conv_loop_setup (&loop, &code->expr1->where); in gfc_trans_call()
520 code->ext.actual, code->expr1, in gfc_trans_call()
558 if (code->expr1) in gfc_trans_return()
573 &code->expr1->where); in gfc_trans_return()
[all …]
|
| H A D | class.cc | 1031 block->expr1 = gfc_lval_expr_from_sym (fini_coarray); in finalize_component()
1038 dealloc->expr1 = gfc_lval_expr_from_sym (stat); in finalize_component()
1042 cond->block->expr1 = gfc_get_expr (); in finalize_component()
1043 cond->block->expr1->expr_type = EXPR_FUNCTION; in finalize_component()
1044 cond->block->expr1->where = gfc_current_locus; in finalize_component()
1045 gfc_get_sym_tree ("associated", sub_ns, &cond->block->expr1->symtree, false); in finalize_component()
1046 cond->block->expr1->symtree->n.sym->attr.flavor = FL_PROCEDURE; in finalize_component()
1047 cond->block->expr1->symtree->n.sym->attr.intrinsic = 1; in finalize_component()
1048 cond->block->expr1->symtree->n.sym->result = cond->block->expr1->symtree->n.sym; in finalize_component()
1049 gfc_commit_symbol (cond->block->expr1->symtree->n.sym); in finalize_component()
[all …]
|
| H A D | frontend-passes.cc | 249 gfc_expr *expr1, *expr2; in realloc_string_callback() local
258 expr1 = co->expr1; in realloc_string_callback()
259 if (expr1->ts.type != BT_CHARACTER in realloc_string_callback()
260 || !gfc_expr_attr(expr1).allocatable in realloc_string_callback()
261 || !expr1->ts.deferred) in realloc_string_callback()
264 if (is_fe_temp (expr1)) in realloc_string_callback()
288 if (!gfc_check_dependency (expr1, expr2, true)) in realloc_string_callback()
295 if (!gfc_dep_compare_expr (expr1, expr2)) in realloc_string_callback()
878 n->expr1 = gfc_copy_expr (result); in create_var()
1045 if (co->expr1 == NULL || co->expr1->expr_type == EXPR_CONSTANT) in convert_do_while()
[all …]
|
| H A D | resolve.cc | 3763 if (!c->expr1 && csym) in resolve_call()
3834 if (!c->expr1) in resolve_call()
6691 if (!c->expr1->value.compcall.tbp->subroutine) in resolve_typebound_call()
6693 if (!c->expr1->value.compcall.tbp->is_generic in resolve_typebound_call()
6694 && c->expr1->value.compcall.tbp->u.specific in resolve_typebound_call()
6695 && c->expr1->value.compcall.tbp->u.specific->n.sym in resolve_typebound_call()
6696 && c->expr1->value.compcall.tbp->u.specific->n.sym->attr.subroutine) in resolve_typebound_call()
6697 c->expr1->value.compcall.tbp->subroutine = 1; in resolve_typebound_call()
6701 c->expr1->value.compcall.name, &c->loc); in resolve_typebound_call()
6706 if (!check_typebound_baseobject (c->expr1)) in resolve_typebound_call()
[all …]
|
| H A D | match.cc | 1362 new_st.expr1 = lvalue; in gfc_match_assignment()
1406 new_st.expr1 = lvalue; in gfc_match_pointer_assignment()
1448 new_st.expr1 = expr; in match_arithmetic_if()
1539 new_st.expr1 = expr; in gfc_match_if()
1551 new_st.expr1 = expr; in gfc_match_if()
1674 p->expr1 = expr; in gfc_match_if()
1777 new_st.expr1 = expr; in gfc_match_elseif()
2498 new_st.expr1 = mask; in match_simple_forall()
2548 new_st.expr1 = mask; in gfc_match_forall()
2571 new_st.expr1 = mask; in gfc_match_forall()
[all …]
|
| H A D | trans-expr.cc | 1661 ppc_code->expr1 = ppc; in gfc_trans_class_array_init_assign()
1698 lhs = gfc_copy_expr (code->expr1); in gfc_trans_class_init_assign()
1700 rhs = gfc_copy_expr (code->expr1); in gfc_trans_class_init_assign()
1711 if (code->expr1->ts.type == BT_CLASS in gfc_trans_class_init_assign()
1712 && CLASS_DATA (code->expr1)->attr.dimension) in gfc_trans_class_init_assign()
1715 *tmparr = *CLASS_DATA (code->expr1)->as; in gfc_trans_class_init_assign()
1719 tmp = gfc_trans_class_array_init_assign (rhs, lhs, code->expr1); in gfc_trans_class_init_assign()
1725 sz = gfc_copy_expr (code->expr1); in gfc_trans_class_init_assign()
1740 if (UNLIMITED_POLY(code->expr1)) in gfc_trans_class_init_assign()
1752 if (code->expr1->symtree->n.sym->attr.dummy in gfc_trans_class_init_assign()
[all …]
|
| H A D | dump-parse-tree.cc | 2282 show_expr (c->expr1); in show_code_node()
2289 show_expr (c->expr1); in show_code_node()
2295 show_expr (c->expr1); in show_code_node()
2306 show_expr (c->expr1); in show_code_node()
2337 show_compcall (c->expr1); in show_code_node()
2342 show_expr (c->expr1); in show_code_node()
2348 if (c->expr1) in show_code_node()
2349 show_expr (c->expr1); in show_code_node()
2355 if (c->expr1 != NULL) in show_code_node()
2356 show_expr (c->expr1); in show_code_node()
[all …]
|
| H A D | dependency.cc | 1205 check_data_pointer_types (gfc_expr *expr1, gfc_expr *expr2) in check_data_pointer_types() argument
1213 if (expr1->expr_type != EXPR_VARIABLE in check_data_pointer_types()
1217 sym1 = expr1->symtree->n.sym; in check_data_pointer_types()
1238 for (ref1 = expr1->ref; ref1; ref1 = ref1->next) in check_data_pointer_types()
1280 gfc_check_dependency (gfc_expr *expr1, gfc_expr *expr2, bool identical) in gfc_check_dependency() argument
1288 if (expr1->expr_type == EXPR_FUNCTION in gfc_check_dependency()
1289 && strcmp (expr1->value.function.name, "_F.caf_get") == 0) in gfc_check_dependency()
1292 if (expr1->expr_type != EXPR_VARIABLE) in gfc_check_dependency()
1303 n = gfc_check_dependency (expr1, expr2->value.op.op1, identical); in gfc_check_dependency()
1307 return gfc_check_dependency (expr1, expr2->value.op.op2, identical); in gfc_check_dependency()
[all …]
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | trans-stmt.c | 104 gfc_conv_label_variable (&se, code->expr1); in gfc_trans_label_assign()
151 gfc_conv_label_variable (&se, code->expr1); in gfc_trans_goto()
363 sym = gfc_get_proc_ifc_for_expr (c->expr1); in get_proc_ifc_for_call()
407 code->expr1, NULL); in gfc_trans_call()
419 sym = select_code->expr1->symtree->n.sym; in gfc_trans_call()
455 if (code->expr1) in gfc_trans_call()
456 gfc_conv_loop_setup (&loop, &code->expr1->where); in gfc_trans_call()
495 code->ext.actual, code->expr1, in gfc_trans_call()
532 if (code->expr1) in gfc_trans_return()
547 &code->expr1->where); in gfc_trans_return()
[all …]
|
| H A D | class.c | 1016 block->expr1 = gfc_lval_expr_from_sym (fini_coarray); in finalize_component()
1023 dealloc->expr1 = gfc_lval_expr_from_sym (stat); in finalize_component()
1027 cond->block->expr1 = gfc_get_expr (); in finalize_component()
1028 cond->block->expr1->expr_type = EXPR_FUNCTION; in finalize_component()
1029 cond->block->expr1->where = gfc_current_locus; in finalize_component()
1030 gfc_get_sym_tree ("associated", sub_ns, &cond->block->expr1->symtree, false); in finalize_component()
1031 cond->block->expr1->symtree->n.sym->attr.flavor = FL_PROCEDURE; in finalize_component()
1032 cond->block->expr1->symtree->n.sym->attr.intrinsic = 1; in finalize_component()
1033 cond->block->expr1->symtree->n.sym->result = cond->block->expr1->symtree->n.sym; in finalize_component()
1034 gfc_commit_symbol (cond->block->expr1->symtree->n.sym); in finalize_component()
[all …]
|
| H A D | frontend-passes.c | 249 gfc_expr *expr1, *expr2; in realloc_string_callback() local
258 expr1 = co->expr1; in realloc_string_callback()
259 if (expr1->ts.type != BT_CHARACTER in realloc_string_callback()
260 || !gfc_expr_attr(expr1).allocatable in realloc_string_callback()
261 || !expr1->ts.deferred) in realloc_string_callback()
264 if (is_fe_temp (expr1)) in realloc_string_callback()
288 if (!gfc_check_dependency (expr1, expr2, true)) in realloc_string_callback()
295 if (!gfc_dep_compare_expr (expr1, expr2)) in realloc_string_callback()
878 n->expr1 = gfc_copy_expr (result); in create_var()
1045 if (co->expr1 == NULL || co->expr1->expr_type == EXPR_CONSTANT) in convert_do_while()
[all …]
|
| H A D | resolve.c | 3686 if (!c->expr1 && csym) in resolve_call()
3757 if (!c->expr1) in resolve_call()
6569 if (!c->expr1->value.compcall.tbp->subroutine) in resolve_typebound_call()
6571 if (!c->expr1->value.compcall.tbp->is_generic in resolve_typebound_call()
6572 && c->expr1->value.compcall.tbp->u.specific in resolve_typebound_call()
6573 && c->expr1->value.compcall.tbp->u.specific->n.sym in resolve_typebound_call()
6574 && c->expr1->value.compcall.tbp->u.specific->n.sym->attr.subroutine) in resolve_typebound_call()
6575 c->expr1->value.compcall.tbp->subroutine = 1; in resolve_typebound_call()
6579 c->expr1->value.compcall.name, &c->loc); in resolve_typebound_call()
6584 if (!check_typebound_baseobject (c->expr1)) in resolve_typebound_call()
[all …]
|
| H A D | match.c | 1387 new_st.expr1 = lvalue; in gfc_match_assignment()
1431 new_st.expr1 = lvalue; in gfc_match_pointer_assignment()
1473 new_st.expr1 = expr; in match_arithmetic_if()
1564 new_st.expr1 = expr; in gfc_match_if()
1576 new_st.expr1 = expr; in gfc_match_if()
1699 p->expr1 = expr; in gfc_match_if()
1802 new_st.expr1 = expr; in gfc_match_elseif()
2523 new_st.expr1 = mask; in match_simple_forall()
2573 new_st.expr1 = mask; in gfc_match_forall()
2596 new_st.expr1 = mask; in gfc_match_forall()
[all …]
|
| H A D | trans-expr.c | 1567 ppc_code->expr1 = ppc; in gfc_trans_class_array_init_assign()
1604 lhs = gfc_copy_expr (code->expr1); in gfc_trans_class_init_assign()
1606 rhs = gfc_copy_expr (code->expr1); in gfc_trans_class_init_assign()
1617 if (code->expr1->ts.type == BT_CLASS in gfc_trans_class_init_assign()
1618 && CLASS_DATA (code->expr1)->attr.dimension) in gfc_trans_class_init_assign()
1621 *tmparr = *CLASS_DATA (code->expr1)->as; in gfc_trans_class_init_assign()
1625 tmp = gfc_trans_class_array_init_assign (rhs, lhs, code->expr1); in gfc_trans_class_init_assign()
1631 sz = gfc_copy_expr (code->expr1); in gfc_trans_class_init_assign()
1646 if (UNLIMITED_POLY(code->expr1)) in gfc_trans_class_init_assign()
1658 if (code->expr1->symtree->n.sym->attr.dummy in gfc_trans_class_init_assign()
[all …]
|
| H A D | dump-parse-tree.c | 1973 show_expr (c->expr1); in show_code_node()
1980 show_expr (c->expr1); in show_code_node()
1986 show_expr (c->expr1); in show_code_node()
1997 show_expr (c->expr1); in show_code_node()
2028 show_compcall (c->expr1); in show_code_node()
2033 show_expr (c->expr1); in show_code_node()
2039 if (c->expr1) in show_code_node()
2040 show_expr (c->expr1); in show_code_node()
2046 if (c->expr1 != NULL) in show_code_node()
2047 show_expr (c->expr1); in show_code_node()
[all …]
|
| H A D | dependency.c | 1204 check_data_pointer_types (gfc_expr *expr1, gfc_expr *expr2) in check_data_pointer_types() argument
1212 if (expr1->expr_type != EXPR_VARIABLE in check_data_pointer_types()
1216 sym1 = expr1->symtree->n.sym; in check_data_pointer_types()
1237 for (ref1 = expr1->ref; ref1; ref1 = ref1->next) in check_data_pointer_types()
1279 gfc_check_dependency (gfc_expr *expr1, gfc_expr *expr2, bool identical) in gfc_check_dependency() argument
1287 if (expr1->expr_type == EXPR_FUNCTION in gfc_check_dependency()
1288 && strcmp (expr1->value.function.name, "_F.caf_get") == 0) in gfc_check_dependency()
1291 if (expr1->expr_type != EXPR_VARIABLE) in gfc_check_dependency()
1302 n = gfc_check_dependency (expr1, expr2->value.op.op1, identical); in gfc_check_dependency()
1306 return gfc_check_dependency (expr1, expr2->value.op.op2, identical); in gfc_check_dependency()
[all …]
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/ |
| H A D | tree-ssa-scopedtables.cc | 562 const struct hashable_expr *expr1) in hashable_expr_equal_p() argument
565 tree type1 = expr1->type; in hashable_expr_equal_p()
581 if (expr0->kind != expr1->kind) in hashable_expr_equal_p()
588 expr1->ops.single.rhs) in hashable_expr_equal_p()
590 expr1->ops.single.rhs, 0); in hashable_expr_equal_p()
592 if (expr0->ops.unary.op != expr1->ops.unary.op) in hashable_expr_equal_p()
597 && TYPE_UNSIGNED (expr0->type) != TYPE_UNSIGNED (expr1->type)) in hashable_expr_equal_p()
601 expr1->ops.unary.opnd, 0); in hashable_expr_equal_p()
604 if (expr0->ops.binary.op != expr1->ops.binary.op) in hashable_expr_equal_p()
608 expr1->ops.binary.opnd0, 0) in hashable_expr_equal_p()
[all …]
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/ |
| H A D | tree-ssa-scopedtables.c | 562 const struct hashable_expr *expr1) in hashable_expr_equal_p() argument
565 tree type1 = expr1->type; in hashable_expr_equal_p()
581 if (expr0->kind != expr1->kind) in hashable_expr_equal_p()
588 expr1->ops.single.rhs) in hashable_expr_equal_p()
590 expr1->ops.single.rhs, 0); in hashable_expr_equal_p()
592 if (expr0->ops.unary.op != expr1->ops.unary.op) in hashable_expr_equal_p()
597 && TYPE_UNSIGNED (expr0->type) != TYPE_UNSIGNED (expr1->type)) in hashable_expr_equal_p()
601 expr1->ops.unary.opnd, 0); in hashable_expr_equal_p()
604 if (expr0->ops.binary.op != expr1->ops.binary.op) in hashable_expr_equal_p()
608 expr1->ops.binary.opnd0, 0) in hashable_expr_equal_p()
[all …]
|
| /netbsd-src/external/mit/isl/dist/ |
| H A D | isl_ast.c | 494 isl_ast_expr *expr1, *expr2; in isl_ast_expr_list_is_equal() local
497 expr1 = isl_ast_expr_list_get_at(list1, i); in isl_ast_expr_list_is_equal()
499 equal = isl_ast_expr_is_equal(expr1, expr2); in isl_ast_expr_list_is_equal()
500 isl_ast_expr_free(expr1); in isl_ast_expr_list_is_equal()
511 isl_bool isl_ast_expr_is_equal(__isl_keep isl_ast_expr *expr1, in isl_ast_expr_is_equal() argument
514 if (!expr1 || !expr2) in isl_ast_expr_is_equal()
517 if (expr1 == expr2) in isl_ast_expr_is_equal()
519 if (expr1->type != expr2->type) in isl_ast_expr_is_equal()
521 switch (expr1->type) { in isl_ast_expr_is_equal()
523 return isl_val_eq(expr1->u.v, expr2->u.v); in isl_ast_expr_is_equal()
[all …]
|
| /netbsd-src/external/gpl2/groff/dist/src/preproc/refer/ |
| H A D | label.y | 161 expression *expr1;
164 binary_expr(expression *e1, expression *e2) : expr1(e1), expr2(e2) { } in binary_expr()
165 ~binary_expr() { delete expr1; delete expr2; } in ~binary_expr() local
168 return (expr1 ? expr1->analyze() : 0) | (expr2 ? expr2->analyze() : 0); in analyze()
192 expression *expr1;
197 : expr1(e1), expr2(e2), expr3(e3) { } in ternary_expr()
198 ~ternary_expr() { delete expr1; delete expr2; delete expr3; } in ~ternary_expr() local
201 return ((expr1 ? expr1->analyze() : 0) in analyze()
791 if (expr1) in evaluate()
792 expr1->evaluate(tentative, ref, result, pos); in evaluate()
[all …]
|
| /netbsd-src/external/gpl3/binutils.old/dist/gas/config/ |
| H A D | tc-mips.c | 10161 expressionS expr1; in macro_build_branch_likely() local
10167 micromips_label_expr (&expr1); in macro_build_branch_likely()
10168 macro_build (&expr1, brneg, fmt, sreg, treg); in macro_build_branch_likely()
10387 expressionS expr1; in macro() local
10424 expr1.X_op = O_constant; in macro()
10425 expr1.X_op_symbol = NULL; in macro()
10426 expr1.X_add_symbol = NULL; in macro()
10427 expr1.X_add_number = 1; in macro()
10903 expr1.X_add_number = -1; in macro()
10905 load_register (AT, &expr1, dbl); in macro()
[all …]
|
| /netbsd-src/external/gpl3/binutils/dist/gas/config/ |
| H A D | tc-mips.c | 10158 expressionS expr1; in macro_build_branch_likely() local
10164 micromips_label_expr (&expr1); in macro_build_branch_likely()
10165 macro_build (&expr1, brneg, fmt, sreg, treg); in macro_build_branch_likely()
10384 expressionS expr1; in macro() local
10421 expr1.X_op = O_constant; in macro()
10422 expr1.X_op_symbol = NULL; in macro()
10423 expr1.X_add_symbol = NULL; in macro()
10424 expr1.X_add_number = 1; in macro()
10900 expr1.X_add_number = -1; in macro()
10902 load_register (AT, &expr1, dbl); in macro()
[all …]
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/cp/ |
| H A D | rtti.c | 661 tree expr1; in build_dynamic_cast_1() local
674 expr1 = build_headof (expr); in build_dynamic_cast_1()
675 if (TREE_TYPE (expr1) != type) in build_dynamic_cast_1()
676 expr1 = build1 (NOP_EXPR, type, expr1); in build_dynamic_cast_1()
677 return ifnonnull (expr, expr1, complain); in build_dynamic_cast_1()
745 expr1 = expr; in build_dynamic_cast_1()
747 expr1 = cp_build_addr_expr (expr1, complain); in build_dynamic_cast_1()
749 elems[0] = expr1; in build_dynamic_cast_1()
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/cp/ |
| H A D | rtti.cc | 679 tree expr1; in build_dynamic_cast_1() local
692 expr1 = build_headof (expr); in build_dynamic_cast_1()
693 if (TREE_TYPE (expr1) != type) in build_dynamic_cast_1()
694 expr1 = build1 (NOP_EXPR, type, expr1); in build_dynamic_cast_1()
695 return build_if_nonnull (expr, expr1, complain); in build_dynamic_cast_1()
763 expr1 = expr; in build_dynamic_cast_1()
765 expr1 = cp_build_addr_expr (expr1, complain); in build_dynamic_cast_1()
767 elems[0] = expr1; in build_dynamic_cast_1()
|