Home
last modified time | relevance | path

Searched refs:expr_type (Results 1 – 25 of 117) sorted by relevance

12345

/netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/
H A Ddependency.c65 if (expr->expr_type != EXPR_CONSTANT) in gfc_expr_is_one()
216 if (e1->expr_type != EXPR_FUNCTION || e2->expr_type != EXPR_FUNCTION) in gfc_dep_compare_functions()
249 if (e1->expr_type == EXPR_CONSTANT in gfc_dep_compare_functions()
251 && e2->expr_type == EXPR_CONSTANT in gfc_dep_compare_functions()
279 if (e->expr_type == EXPR_OP in gfc_discard_nops()
287 if (e->expr_type == EXPR_FUNCTION && e->value.function.isym in gfc_discard_nops()
328 if (e1->expr_type == EXPR_OP && e1->value.op.op == INTRINSIC_PLUS) in gfc_dep_compare_expr()
331 if (e1->value.op.op2->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr()
337 if (e2->expr_type == EXPR_OP && e2->value.op.op == INTRINSIC_PLUS) in gfc_dep_compare_expr()
370 if (e2->expr_type == EXPR_OP && e2->value.op.op == INTRINSIC_PLUS) in gfc_dep_compare_expr()
[all …]
H A Dsimplify.c83 if (result->expr_type != EXPR_CONSTANT) in range_check()
127 if (k->expr_type != EXPR_CONSTANT) in get_kind()
227 if (e->expr_type == EXPR_VARIABLE && e->rank > 0 in is_constant_array_expr()
231 if (e->expr_type != EXPR_ARRAY || !gfc_is_constant_expr (e)) in is_constant_array_expr()
236 if (c->expr->expr_type != EXPR_CONSTANT in is_constant_array_expr()
237 && c->expr->expr_type != EXPR_STRUCTURE) in is_constant_array_expr()
251 if (array->expr_type == EXPR_VARIABLE && array->rank > 0 in gfc_is_size_zero_array()
262 if (array->expr_type == EXPR_ARRAY) in gfc_is_size_zero_array()
274 if (e && e->expr_type == EXPR_ARRAY) in init_result_expr()
283 else if (e && e->expr_type == EXPR_CONSTANT) in init_result_expr()
[all …]
H A Dexpr.c67 e->expr_type = EXPR_ARRAY; in gfc_get_array_expr()
89 e->expr_type = EXPR_NULL; in gfc_get_null_expr()
108 e->expr_type = EXPR_OP; in gfc_get_operator_expr()
129 e->expr_type = EXPR_STRUCTURE; in gfc_get_structure_constructor_expr()
154 e->expr_type = EXPR_CONSTANT; in gfc_get_constant_expr()
252 e->expr_type = EXPR_CONSTANT; in gfc_get_iokind_expr()
277 switch (q->expr_type) in gfc_copy_expr()
446 switch (e->expr_type) in free_expr0()
654 if (expr->expr_type != EXPR_CONSTANT) in gfc_extract_int()
707 if (expr->expr_type != EXPR_CONSTANT) in gfc_extract_hwi()
[all …]
H A Darray.c384 if (e->expr_type == EXPR_VARIABLE) in resolve_array_bound()
429 if (as->lower[i]->expr_type == EXPR_CONSTANT in gfc_resolve_array_spec()
430 && as->upper[i]->expr_type == EXPR_CONSTANT in gfc_resolve_array_spec()
495 if (((*upper)->expr_type == EXPR_CONSTANT in match_array_element_spec()
497 ((*upper)->expr_type == EXPR_FUNCTION in match_array_element_spec()
527 if (((*upper)->expr_type == EXPR_CONSTANT in match_array_element_spec()
529 ((*upper)->expr_type == EXPR_FUNCTION in match_array_element_spec()
956 || bound1->expr_type != EXPR_CONSTANT in compare_bounds()
957 || bound2->expr_type != EXPR_CONSTANT in compare_bounds()
1027 if (e->expr_type == EXPR_ARRAY in check_duplicate_iterator()
[all …]
H A Dcheck.c121 if (a->expr_type != EXPR_CONSTANT) in is_boz_constant()
516 if ((e->expr_type == EXPR_VARIABLE || e->expr_type == EXPR_FUNCTION) in numeric_check()
760 if (expr->expr_type == EXPR_CONSTANT) in nonnegative_check()
781 if (expr->expr_type == EXPR_CONSTANT) in positive_check()
806 if (expr2->expr_type == EXPR_CONSTANT) in less_than_bitsize1()
859 if (expr->expr_type != EXPR_CONSTANT) in less_than_bitsizekind()
885 if (expr2->expr_type == EXPR_CONSTANT && expr3->expr_type == EXPR_CONSTANT) in less_than_bitsize2()
956 if (e->expr_type == EXPR_VARIABLE && e->symtree->n.sym->attr.optional) in nonoptional_check()
1011 if (e->expr_type == EXPR_VARIABLE in variable_check()
1023 if (e->expr_type == EXPR_VARIABLE in variable_check()
[all …]
H A Dfrontend-passes.c269 if (expr2->expr_type == EXPR_VARIABLE) in realloc_string_callback()
283 else if (expr2->expr_type != EXPR_ARRAY in realloc_string_callback()
284 && (expr2->expr_type != EXPR_OP in realloc_string_callback()
342 if ((*e)->expr_type == EXPR_FUNCTION) in optimize_expr()
356 if ((*e)->expr_type == EXPR_OP && optimize_op (*e)) in optimize_expr()
359 if ((*e)->expr_type == EXPR_FUNCTION && (*e)->value.function.isym) in optimize_expr()
394 new_expr->expr_type = EXPR_ARRAY; in copy_walk_reduction_arg()
446 if (fn->rank != 0 || fn->expr_type != EXPR_FUNCTION in callback_reduction()
474 if (arg->expr_type != EXPR_ARRAY) in callback_reduction()
516 new_expr->expr_type = EXPR_OP; in callback_reduction()
[all …]
H A Dtarget-memory.c98 if (e->expr_type == EXPR_CONSTANT) in gfc_element_size()
101 && e->ts.u.cl->length->expr_type == EXPR_CONSTANT in gfc_element_size()
275 if (c->expr->expr_type == EXPR_NULL) in encode_derived()
300 if (source->expr_type == EXPR_ARRAY) in gfc_target_encode_expr()
303 gcc_assert (source->expr_type == EXPR_CONSTANT in gfc_target_encode_expr()
304 || source->expr_type == EXPR_STRUCTURE in gfc_target_encode_expr()
305 || source->expr_type == EXPR_SUBSTRING); in gfc_target_encode_expr()
331 if (source->expr_type == EXPR_CONSTANT || source->ref == NULL) in gfc_target_encode_expr()
340 gcc_assert (source->expr_type == EXPR_SUBSTRING); in gfc_target_encode_expr()
352 gcc_assert (source->expr_type == EXPR_STRUCTURE); in gfc_target_encode_expr()
[all …]
H A Dinterface.c503 && l1->length->expr_type == EXPR_CONSTANT in compare_components()
504 && l2->length->expr_type == EXPR_CONSTANT in compare_components()
2280 if (e->expr_type == EXPR_CONSTANT) in maybe_dummy_array_arg()
2283 if (e->expr_type != EXPR_VARIABLE) in maybe_dummy_array_arg()
2410 if ((actual->expr_type != EXPR_NULL || actual->ts.type != BT_UNKNOWN) in compare_parameter()
2452 && actual->expr_type != EXPR_NULL in compare_parameter()
2576 if (actual->expr_type == EXPR_VARIABLE in compare_parameter()
2619 && actual->expr_type != EXPR_NULL; in compare_parameter()
2627 || (formal->attr.pointer && actual->expr_type != EXPR_NULL) in compare_parameter()
2634 && actual->expr_type != EXPR_NULL) in compare_parameter()
[all …]
H A Dprimary.c489 e->expr_type = EXPR_CONSTANT; in match_boz_constant()
1191 e->expr_type = EXPR_SUBSTRING; in match_string_constant()
1196 if (e->expr_type == EXPR_SUBSTRING in match_string_constant()
1198 && e->ref->u.ss.start->expr_type == EXPR_CONSTANT in match_string_constant()
1200 || e->ref->u.ss.end->expr_type == EXPR_CONSTANT)) in match_string_constant()
1708 e->expr_type = EXPR_VARIABLE; in match_actual_arg()
2134 if (tgt_expr->expr_type == EXPR_VARIABLE) in gfc_match_varspec()
2160 && tgt_expr->expr_type == EXPR_VARIABLE in gfc_match_varspec()
2252 || (tgt_expr && tgt_expr->expr_type == EXPR_OP); in gfc_match_varspec()
2362 if (!(primary->expr_type == EXPR_VARIABLE in gfc_match_varspec()
[all …]
H A Dio.c1328 if (!e || e->ts.type != BT_CHARACTER || e->expr_type != EXPR_CONSTANT) in check_format_string()
1525 if ((*result)->expr_type == EXPR_CONSTANT) in match_out_tag()
1665 if (e->expr_type == EXPR_CONSTANT in resolve_tag_format()
1677 if ((e->expr_type == EXPR_ARRAY || e->rank > 0) in resolve_tag_format()
1681 if (e->expr_type == EXPR_VARIABLE in resolve_tag_format()
1685 if (e->expr_type == EXPR_ARRAY) in resolve_tag_format()
1726 && (e->expr_type != EXPR_VARIABLE in resolve_tag_format()
1739 else if (e->ts.type == BT_INTEGER && e->expr_type == EXPR_VARIABLE) in resolve_tag_format()
2192 if (open->access && open->access->expr_type == EXPR_CONSTANT) in check_open_constraints()
2206 if (open->action && open->action->expr_type == EXPR_CONSTANT) in check_open_constraints()
[all …]
H A Dresolve.c526 if (!cl || !cl->length || cl->length->expr_type != EXPR_CONSTANT) in gfc_resolve_formal_arglist()
811 && ts->u.cl->length->expr_type in resolve_entries()
812 != fts->u.cl->length->expr_type) in resolve_entries()
814 && ts->u.cl->length->expr_type == EXPR_CONSTANT in resolve_entries()
1192 if (expr && expr->expr_type == EXPR_STRUCTURE) in get_pdt_constructor()
1203 && cons->expr->expr_type == EXPR_STRUCTURE in get_pdt_constructor()
1293 if (cons->expr->ts.type == BT_UNION && cons->expr->expr_type == EXPR_NULL) in resolve_structure_cons()
1308 if (cons->expr->expr_type != EXPR_NULL && rank != cons->expr->rank in resolve_structure_cons()
1353 && comp->ts.u.cl->length->expr_type == EXPR_CONSTANT in resolve_structure_cons()
1355 && cons->expr->ts.u.cl->length->expr_type == EXPR_CONSTANT in resolve_structure_cons()
[all …]
/netbsd-src/external/gpl3/gcc/dist/gcc/fortran/
H A Ddependency.cc66 if (expr->expr_type != EXPR_CONSTANT) in gfc_expr_is_one()
217 if (e1->expr_type != EXPR_FUNCTION || e2->expr_type != EXPR_FUNCTION) in gfc_dep_compare_functions()
250 if (e1->expr_type == EXPR_CONSTANT in gfc_dep_compare_functions()
252 && e2->expr_type == EXPR_CONSTANT in gfc_dep_compare_functions()
280 if (e->expr_type == EXPR_OP in gfc_discard_nops()
288 if (e->expr_type == EXPR_FUNCTION && e->value.function.isym in gfc_discard_nops()
329 if (e1->expr_type == EXPR_OP && e1->value.op.op == INTRINSIC_PLUS) in gfc_dep_compare_expr()
332 if (e1->value.op.op2->expr_type == EXPR_CONSTANT in gfc_dep_compare_expr()
338 if (e2->expr_type == EXPR_OP && e2->value.op.op == INTRINSIC_PLUS) in gfc_dep_compare_expr()
371 if (e2->expr_type == EXPR_OP && e2->value.op.op == INTRINSIC_PLUS) in gfc_dep_compare_expr()
[all …]
H A Dsimplify.cc83 if (result->expr_type != EXPR_CONSTANT) in range_check()
127 if (k->expr_type != EXPR_CONSTANT) in get_kind()
229 if (e->expr_type == EXPR_VARIABLE && e->rank > 0 in is_constant_array_expr()
233 if (e->expr_type != EXPR_ARRAY || !gfc_is_constant_expr (e)) in is_constant_array_expr()
238 if (c->expr->expr_type != EXPR_CONSTANT in is_constant_array_expr()
239 && c->expr->expr_type != EXPR_STRUCTURE) in is_constant_array_expr()
258 if (c->expr->expr_type != EXPR_CONSTANT in is_constant_array_expr()
259 && c->expr->expr_type != EXPR_STRUCTURE) in is_constant_array_expr()
283 if (array->expr_type == EXPR_VARIABLE && array->rank > 0 in gfc_is_size_zero_array()
294 if (array->expr_type == EXPR_ARRAY) in gfc_is_size_zero_array()
[all …]
H A Dexpr.cc67 e->expr_type = EXPR_ARRAY; in gfc_get_array_expr()
89 e->expr_type = EXPR_NULL; in gfc_get_null_expr()
108 e->expr_type = EXPR_OP; in gfc_get_operator_expr()
129 e->expr_type = EXPR_STRUCTURE; in gfc_get_structure_constructor_expr()
154 e->expr_type = EXPR_CONSTANT; in gfc_get_constant_expr()
252 e->expr_type = EXPR_CONSTANT; in gfc_get_iokind_expr()
277 switch (q->expr_type) in gfc_copy_expr()
447 switch (e->expr_type) in free_expr0()
662 if (expr->expr_type != EXPR_CONSTANT) in gfc_extract_int()
715 if (expr->expr_type != EXPR_CONSTANT) in gfc_extract_hwi()
[all …]
H A Dcheck.cc121 if (a->expr_type != EXPR_CONSTANT) in is_boz_constant()
516 if ((e->expr_type == EXPR_VARIABLE || e->expr_type == EXPR_FUNCTION) in numeric_check()
760 if (expr->expr_type == EXPR_CONSTANT) in nonnegative_check()
781 if (expr->expr_type == EXPR_CONSTANT) in positive_check()
806 if (expr2->expr_type == EXPR_CONSTANT) in less_than_bitsize1()
859 if (expr->expr_type != EXPR_CONSTANT) in less_than_bitsizekind()
885 if (expr2->expr_type == EXPR_CONSTANT && expr3->expr_type == EXPR_CONSTANT) in less_than_bitsize2()
956 if (e->expr_type == EXPR_VARIABLE && e->symtree->n.sym->attr.optional) in nonoptional_check()
1011 if (e->expr_type == EXPR_VARIABLE in variable_check()
1023 if (e->expr_type == EXPR_VARIABLE in variable_check()
[all …]
H A Darray.cc391 if (e->expr_type == EXPR_VARIABLE) in resolve_array_bound()
436 if (as->lower[i]->expr_type == EXPR_CONSTANT in gfc_resolve_array_spec()
437 && as->upper[i]->expr_type == EXPR_CONSTANT in gfc_resolve_array_spec()
502 if (((*upper)->expr_type == EXPR_CONSTANT in match_array_element_spec()
504 ((*upper)->expr_type == EXPR_FUNCTION in match_array_element_spec()
534 if (((*upper)->expr_type == EXPR_CONSTANT in match_array_element_spec()
536 ((*upper)->expr_type == EXPR_FUNCTION in match_array_element_spec()
1039 if (e->expr_type == EXPR_ARRAY in check_duplicate_iterator()
1175 if (expr->expr_type == EXPR_FUNCTION in match_array_cons_element()
1204 if (e->expr_type == EXPR_ARRAY && e->ts.type == BT_UNKNOWN in walk_array_constructor()
[all …]
H A Dfrontend-passes.cc269 if (expr2->expr_type == EXPR_VARIABLE) in realloc_string_callback()
283 else if (expr2->expr_type != EXPR_ARRAY in realloc_string_callback()
284 && (expr2->expr_type != EXPR_OP in realloc_string_callback()
342 if ((*e)->expr_type == EXPR_FUNCTION) in optimize_expr()
356 if ((*e)->expr_type == EXPR_OP && optimize_op (*e)) in optimize_expr()
359 if ((*e)->expr_type == EXPR_FUNCTION && (*e)->value.function.isym) in optimize_expr()
394 new_expr->expr_type = EXPR_ARRAY; in copy_walk_reduction_arg()
446 if (fn->rank != 0 || fn->expr_type != EXPR_FUNCTION in callback_reduction()
474 if (arg->expr_type != EXPR_ARRAY) in callback_reduction()
516 new_expr->expr_type = EXPR_OP; in callback_reduction()
[all …]
H A Dtarget-memory.cc98 if (e->expr_type == EXPR_CONSTANT) in gfc_element_size()
101 && e->ts.u.cl->length->expr_type == EXPR_CONSTANT in gfc_element_size()
274 if (c->expr->expr_type == EXPR_NULL) in encode_derived()
299 if (source->expr_type == EXPR_ARRAY) in gfc_target_encode_expr()
302 gcc_assert (source->expr_type == EXPR_CONSTANT in gfc_target_encode_expr()
303 || source->expr_type == EXPR_STRUCTURE in gfc_target_encode_expr()
304 || source->expr_type == EXPR_SUBSTRING); in gfc_target_encode_expr()
330 if (source->expr_type == EXPR_CONSTANT || source->ref == NULL) in gfc_target_encode_expr()
339 gcc_assert (source->expr_type == EXPR_SUBSTRING); in gfc_target_encode_expr()
351 gcc_assert (source->expr_type == EXPR_STRUCTURE); in gfc_target_encode_expr()
[all …]
H A Dinterface.cc503 && l1->length->expr_type == EXPR_CONSTANT in compare_components()
504 && l2->length->expr_type == EXPR_CONSTANT in compare_components()
2304 if (e->expr_type == EXPR_CONSTANT) in maybe_dummy_array_arg()
2307 if (e->expr_type != EXPR_VARIABLE) in maybe_dummy_array_arg()
2460 if ((actual->expr_type != EXPR_NULL || actual->ts.type != BT_UNKNOWN) in compare_parameter()
2517 && actual->expr_type != EXPR_NULL in compare_parameter()
2641 if (actual->expr_type == EXPR_VARIABLE in compare_parameter()
2684 && actual->expr_type != EXPR_NULL; in compare_parameter()
2692 || (formal->attr.pointer && actual->expr_type != EXPR_NULL) in compare_parameter()
2699 && actual->expr_type != EXPR_NULL) in compare_parameter()
[all …]
H A Dprimary.cc489 e->expr_type = EXPR_CONSTANT; in match_boz_constant()
1170 e->expr_type = EXPR_SUBSTRING; in match_string_constant()
1175 if (e->expr_type == EXPR_SUBSTRING in match_string_constant()
1177 && e->ref->u.ss.start->expr_type == EXPR_CONSTANT in match_string_constant()
1179 || e->ref->u.ss.end->expr_type == EXPR_CONSTANT)) in match_string_constant()
1687 e->expr_type = EXPR_VARIABLE; in match_actual_arg()
2113 if (tgt_expr->expr_type == EXPR_VARIABLE) in gfc_match_varspec()
2139 && tgt_expr->expr_type == EXPR_VARIABLE in gfc_match_varspec()
2240 || (tgt_expr && tgt_expr->expr_type == EXPR_OP); in gfc_match_varspec()
2350 if (!(primary->expr_type == EXPR_VARIABLE in gfc_match_varspec()
[all …]
H A Dio.cc1328 if (!e || e->ts.type != BT_CHARACTER || e->expr_type != EXPR_CONSTANT) in check_format_string()
1525 if ((*result)->expr_type == EXPR_CONSTANT) in match_out_tag()
1665 if (e->expr_type == EXPR_CONSTANT in resolve_tag_format()
1677 if ((e->expr_type == EXPR_ARRAY || e->rank > 0) in resolve_tag_format()
1681 if (e->expr_type == EXPR_VARIABLE in resolve_tag_format()
1685 if (e->expr_type == EXPR_ARRAY) in resolve_tag_format()
1726 && (e->expr_type != EXPR_VARIABLE in resolve_tag_format()
1739 else if (e->ts.type == BT_INTEGER && e->expr_type == EXPR_VARIABLE) in resolve_tag_format()
2192 if (open->access && open->access->expr_type == EXPR_CONSTANT) in check_open_constraints()
2206 if (open->action && open->action->expr_type == EXPR_CONSTANT) in check_open_constraints()
[all …]
H A Dresolve.cc526 if (!cl || !cl->length || cl->length->expr_type != EXPR_CONSTANT) in gfc_resolve_formal_arglist()
820 && ts->u.cl->length->expr_type in resolve_entries()
821 != fts->u.cl->length->expr_type) in resolve_entries()
823 && ts->u.cl->length->expr_type == EXPR_CONSTANT in resolve_entries()
1216 if (expr && expr->expr_type == EXPR_STRUCTURE) in get_pdt_constructor()
1227 && cons->expr->expr_type == EXPR_STRUCTURE in get_pdt_constructor()
1321 if (cons->expr->ts.type == BT_UNION && cons->expr->expr_type == EXPR_NULL) in resolve_structure_cons()
1336 if (cons->expr->expr_type != EXPR_NULL && rank != cons->expr->rank in resolve_structure_cons()
1381 && comp->ts.u.cl->length->expr_type == EXPR_CONSTANT in resolve_structure_cons()
1383 && cons->expr->ts.u.cl->length->expr_type == EXPR_CONSTANT in resolve_structure_cons()
[all …]
/netbsd-src/external/gpl3/gcc/dist/gcc/
H A Dtree-vrp.cc711 tree expr_type, in extract_range_from_pointer_plus_expr() argument
715 gcc_checking_assert (POINTER_TYPE_P (expr_type) in extract_range_from_pointer_plus_expr()
734 && !TYPE_OVERFLOW_WRAPS (expr_type) in extract_range_from_pointer_plus_expr()
738 vr->set_nonzero (expr_type); in extract_range_from_pointer_plus_expr()
740 vr->set_zero (expr_type); in extract_range_from_pointer_plus_expr()
742 vr->set_varying (expr_type); in extract_range_from_pointer_plus_expr()
751 tree expr_type, in extract_range_from_plus_minus_expr() argument
765 extract_range_from_plus_minus_expr (vr, code, expr_type, &vrtem0, vr1_); in extract_range_from_plus_minus_expr()
769 extract_range_from_plus_minus_expr (&vrres, code, expr_type, in extract_range_from_plus_minus_expr()
779 extract_range_from_plus_minus_expr (vr, code, expr_type, vr0_, &vrtem0); in extract_range_from_plus_minus_expr()
[all …]
/netbsd-src/external/gpl3/gcc/dist/gcc/cp/
H A Dmethod.cc738 tree expr_type; in do_build_copy_constructor() local
743 expr_type = TREE_TYPE (field); in do_build_copy_constructor()
749 else if (ANON_AGGR_TYPE_P (expr_type) && TYPE_FIELDS (expr_type)) in do_build_copy_constructor()
761 if (!TYPE_REF_P (expr_type)) in do_build_copy_constructor()
767 quals |= cp_type_quals (expr_type); in do_build_copy_constructor()
768 expr_type = cp_build_qualified_type (expr_type, quals); in do_build_copy_constructor()
771 tree init = build3 (COMPONENT_REF, expr_type, parm, field, NULL_TREE); in do_build_copy_constructor()
772 if (move_p && !TYPE_REF_P (expr_type) in do_build_copy_constructor()
774 && !scalarish_type_p (expr_type)) in do_build_copy_constructor()
845 tree expr_type; in do_build_copy_assign() local
[all …]
/netbsd-src/external/gpl3/gcc.old/dist/gcc/
H A Dtree-vrp.c892 tree expr_type, in extract_range_from_pointer_plus_expr() argument
896 gcc_checking_assert (POINTER_TYPE_P (expr_type) in extract_range_from_pointer_plus_expr()
915 && !TYPE_OVERFLOW_WRAPS (expr_type) in extract_range_from_pointer_plus_expr()
919 vr->set_nonzero (expr_type); in extract_range_from_pointer_plus_expr()
921 vr->set_zero (expr_type); in extract_range_from_pointer_plus_expr()
923 vr->set_varying (expr_type); in extract_range_from_pointer_plus_expr()
932 tree expr_type, in extract_range_from_plus_minus_expr() argument
946 extract_range_from_plus_minus_expr (vr, code, expr_type, &vrtem0, vr1_); in extract_range_from_plus_minus_expr()
950 extract_range_from_plus_minus_expr (&vrres, code, expr_type, in extract_range_from_plus_minus_expr()
960 extract_range_from_plus_minus_expr (vr, code, expr_type, vr0_, &vrtem0); in extract_range_from_plus_minus_expr()
[all …]

12345