Home
last modified time | relevance | path

Searched refs:A_OPTYPEG (Results 1 – 25 of 42) sorted by relevance

12

/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/
H A Dredundss.c649 switch (A_OPTYPEG(ast)) { in markmodified()
916 if (A_TYPEG(lop) == A_UNOP && A_OPTYPEG(lop) == OP_SUB) { in addcomponents()
969 if (A_TYPEG(lop) == A_UNOP && A_OPTYPEG(lop) == OP_SUB) { in addcomponents()
1115 switch (A_OPTYPEG(ast)) { in findmulcomponents()
1128 switch (A_OPTYPEG(ast)) { in findmulcomponents()
1162 switch (A_OPTYPEG(ast)) { in findcomponents()
1175 optype = A_OPTYPEG(ast); in findcomponents()
1229 switch (A_OPTYPEG(ast)) { in mixedsum()
1236 switch (A_OPTYPEG(ast)) { in mixedsum()
1302 switch (A_OPTYPEG(ast)) { in MakeReplacement()
[all …]
H A Dfunc.c3177 (A_OPTYPEG(arg) == I_EOSHIFT || A_OPTYPEG(arg) == I_CSHIFT)) { in leave_arg()
3464 if (A_OPTYPEG(arg) == OP_VAL || A_OPTYPEG(arg) == OP_BYVAL || in rewrite_sub_args()
3465 A_OPTYPEG(arg) == OP_LOC || A_OPTYPEG(arg) == OP_REF) { in rewrite_sub_args()
5911 if (A_OPTYPEG(ast) == I_MAXLOC || A_OPTYPEG(ast) == I_MINLOC) { in inline_reduction_f90()
6132 if (A_OPTYPEG(ast) == I_MAXLOC || A_OPTYPEG(ast) == I_MINLOC) in inline_reduction_f90()
6174 if (A_OPTYPEG(ast) == I_MAXLOC || A_OPTYPEG(ast) == I_MINLOC) in inline_reduction_f90()
6228 if (A_OPTYPEG(ast) == I_MAXLOC || A_OPTYPEG(ast) == I_MINLOC) { in inline_reduction_f90()
6233 if (A_OPTYPEG(ast) == I_MAXLOC || A_OPTYPEG(ast) == I_MINLOC) { in inline_reduction_f90()
6238 if (A_OPTYPEG(ast) == I_MAXLOC || A_OPTYPEG(ast) == I_MINLOC || in inline_reduction_f90()
6239 A_OPTYPEG(ast) == I_MAXVAL || A_OPTYPEG(ast) == I_MINVAL) { in inline_reduction_f90()
[all …]
H A Ddetect.c76 o = A_OPTYPEG(a); in tag_forall_comm()
83 o = A_OPTYPEG(a); in tag_forall_comm()
114 if (A_OPTYPEG(a) == I_CSHIFT) { in tag_forall_comm()
120 if (A_OPTYPEG(a) == I_EOSHIFT) { in tag_forall_comm()
901 op = A_OPTYPEG(src); in scatter_type()
911 func = A_OPTYPEG(src); in scatter_type()
1412 switch (opc = A_OPTYPEG(ast)) { in search_idx()
1450 switch (opc = A_OPTYPEG(ast)) { in search_idx()
H A Ddtypeutl.c181 switch (A_OPTYPEG(d)) { in size_of()
876 if (A_OPTYPEG(ast) != OP_CAT) { in string_expr_length()
896 switch (A_OPTYPEG(ast)) { in string_expr_length()
2178 prio = priority(A_OPTYPEG(ast)); in leftparens()
2179 prioleft = priority(A_OPTYPEG(astleft)); in leftparens()
2200 prio = priority(A_OPTYPEG(ast)); in rightparens()
2201 prioright = priority(A_OPTYPEG(astright)); in rightparens()
2362 getop(A_OPTYPEG(ast), string); in getast()
2373 getop(A_OPTYPEG(ast), string); in getast()
3652 switch (A_OPTYPEG(ast)) { in chk_kind_parm_set_expr()
[all …]
H A Dcomm.c1605 o = A_OPTYPEG(a); in insert_forall_comm()
1611 o = A_OPTYPEG(a); in insert_forall_comm()
1638 if (A_OPTYPEG(a) == I_CSHIFT || A_OPTYPEG(a) == I_EOSHIFT) { in insert_forall_comm()
1649 if (A_OPTYPEG(a) == I_EOSHIFT) in insert_forall_comm()
3215 o = A_OPTYPEG(expr); in shape_comm_in_expr()
3223 o = A_OPTYPEG(expr); in shape_comm_in_expr()
3248 o = A_OPTYPEG(expr); in shape_comm_in_expr()
3567 o = A_OPTYPEG(expr); in handle_pure_temp_too_large()
3573 o = A_OPTYPEG(expr); in handle_pure_temp_too_large()
4237 o = A_OPTYPEG(a); in scalar_communication()
[all …]
H A Doutconv.c1050 (A_OPTYPEG(ast) == OP_VAL || A_OPTYPEG(ast) == OP_BYVAL)) in value()
3269 if (A_OPTYPEG(expr) != A_OPTYPEG(expr1)) in is_same_mask()
3277 if (A_OPTYPEG(expr) != A_OPTYPEG(expr1)) in is_same_mask()
3656 (A_OPTYPEG(rhs) == I_ADJUSTL || A_OPTYPEG(rhs) == I_ADJUSTR)) { in conv_forall()
4968 o = A_OPTYPEG(expr); in transform_pure_function()
4974 o = A_OPTYPEG(expr); in transform_pure_function()
5271 switch (A_OPTYPEG(ast)) { in _linearize()
5356 switch (A_OPTYPEG(ast)) { in _linearize_func()
5395 switch (A_OPTYPEG(ast)) { in _linearize_func()
5585 o = A_OPTYPEG(ast); in _check_clean()
[all …]
H A Dinduc.c555 if (A_TYPEG(add) == A_BINOP && A_OPTYPEG(add) == OP_ADD) { in is_biv()
575 } else if (A_TYPEG(add) == A_BINOP && A_OPTYPEG(add) == OP_SUB) { in is_biv()
618 opc = A_OPTYPEG(value); in check_skip()
853 switch (A_OPTYPEG(ilix)) { in _fam()
975 if (A_OPTYPEG(ilix) == OP_SUB) { in _fam()
H A Dpstride.c317 if (A_OPTYPEG(astx) == I_PTR2_ASSIGN) { in _findrefs()
326 } else if (A_OPTYPEG(astx) == I_NULLIFY) { in _findrefs()
H A Drest.c201 o = A_OPTYPEG(a); in insert_comm_before()
207 o = A_OPTYPEG(a); in insert_comm_before()
389 o = A_OPTYPEG(a); in _transform_func()
395 o = A_OPTYPEG(a); in _transform_func()
1399 if (A_OPTYPEG(ele) == OP_REF) { in transform_call()
1403 if (A_OPTYPEG(ele) == OP_VAL || A_OPTYPEG(ele) == OP_LOC || in transform_call()
1404 A_OPTYPEG(ele) == OP_REF) { in transform_call()
2438 if (A_OPTYPEG(ast) == I_MOVE_ALLOC || A_OPTYPEG(ast) == I_MVBITS || in pure_procedure()
2439 (A_OPTYPEG(ast) == I_PTR2_ASSIGN && in pure_procedure()
4067 o = A_OPTYPEG(a); in transform_all_call()
[all …]
H A Doptutil.c2218 if (A_OPTYPEG(astx) == I_PTR2_ASSIGN) { in isstd_ptrdef()
2255 if (A_OPTYPEG(astx) == I_PTR2_ASSIGN) { in isptrdef_in_path()
2299 if (A_OPTYPEG(astx) == I_PTR2_ASSIGN) { in isptrdef_in_path()
2336 if (A_OPTYPEG(astx) == I_PTR2_ASSIGN) { in isptrdef_in_path()
2439 A_OPTYPEG(STD_AST(std)) == I_PTR2_ASSIGN) { in alldefs_allocsafe()
2480 if (A_OPTYPEG(astx) == I_PTR2_ASSIGN) { in ptrdefs_has_lhsconflict()
2758 if (A_OPTYPEG(astx) == I_PTR2_ASSIGN) { in get_lhs_first_defs()
H A Dcommgen.c1453 o = A_OPTYPEG(a); in rhs_cyclic()
1459 o = A_OPTYPEG(a); in rhs_cyclic()
1605 o = A_OPTYPEG(expr); in rewrite_expr()
1611 o = A_OPTYPEG(expr); in rewrite_expr()
1813 astnew = mk_binop((int)A_OPTYPEG(ast), l, r, dtype); in pointer_squeezer()
1821 astnew = mk_unop((int)A_OPTYPEG(ast), l, dtype); in pointer_squeezer()
1912 A_OPTYPEP(astnew, A_OPTYPEG(ast)); in pointer_squeezer()
H A Diterat.c693 return mk_binop(A_OPTYPEG(sub_expr), expr1, expr2, A_DTYPEG(sub_expr)); in replace_expr()
696 return mk_unop(A_OPTYPEG(sub_expr), expr1, A_DTYPEG(sub_expr)); in replace_expr()
H A Dlowersym.c2394 if (A_OPTYPEG(ast) == OP_SUB) in eval_con_expr()
2396 if (A_OPTYPEG(ast) == OP_LNOT) in eval_con_expr()
2473 switch (A_OPTYPEG(lb)) { in lower_put_datatype()
2486 switch (A_OPTYPEG(ub)) { in lower_put_datatype()
2499 switch (A_OPTYPEG(extnt)) { in lower_put_datatype()
2715 switch (A_OPTYPEG(lb)) { in lower_put_datatype()
2765 switch (A_OPTYPEG(ub)) { in lower_put_datatype()
2812 if (A_TYPEG(l) == A_BINOP && A_OPTYPEG(l) == OP_SUB) { in lower_put_datatype()
2846 switch (A_OPTYPEG(extnt)) { in lower_put_datatype()
5194 switch (A_OPTYPEG(ast)) { in valid_kind_parm_expr()
[all …]
H A Dast.c348 optype == A_OPTYPEG(nd)) in hash_unop()
1023 switch (A_OPTYPEG(opnd)) { in reduce_iadd()
1130 switch (A_OPTYPEG(opnd)) { in reduce_i8add()
4420 A_OPTYPEP(astnew, A_OPTYPEG(ast)); in ast_rewrite()
4424 switch (A_OPTYPEG(astnew)) { in ast_rewrite()
4492 A_OPTYPEP(astnew, A_OPTYPEG(ast)); in ast_rewrite()
5178 A_OPTYPEP(astnew, A_OPTYPEG(ast)); in ast_rewrite()
7408 switch (A_OPTYPEG(ast)) { in has_assumshp_expr()
7461 switch (A_OPTYPEG(ast)) { in has_adjustable_expr()
7514 switch (A_OPTYPEG(ast)) { in has_pointer_expr()
[all …]
H A Dsemutil2.c233 switch (A_OPTYPEG(ast)) { in valid_kind_parm_expr()
2181 switch (A_OPTYPEG(ast)) { in _can_fold()
4028 switch (A_OPTYPEG(ast)) { in get_ac_op()
4096 A_OPTYPEG(ast), 3); in get_ac_op()
6202 switch (A_OPTYPEG(ast)) { in const_eval()
6218 switch (A_OPTYPEG(ast)) { in const_eval()
6247 switch (A_OPTYPEG(ast)) { in const_eval()
6314 switch (A_OPTYPEG(ast)) { in const_eval()
6791 switch (A_OPTYPEG(ast)) { in build_array_list()
11773 switch (A_OPTYPEG(ast)) { in remove_parent_from_ast()
[all …]
H A Dtransfrm.c386 if (A_OPTYPEG(ast) == OP_XTOX) /* real ** real */ in nice_mask()
1683 A_OPTYPEP(ast, A_OPTYPEG(asgn_ast)); in normalize_forall()
1692 return mk_binop(A_OPTYPEG(asgn_ast), ast1, ast2, dtype); in normalize_forall()
1698 return mk_unop(A_OPTYPEG(asgn_ast), ast1, dtype); in normalize_forall()
1704 if (is_iso_cptr(dtype) && A_OPTYPEG(A_LOPG(asgn_ast))) { in normalize_forall()
2165 switch (A_OPTYPEG(asgn_ast)) { in inline_spread_shifts()
2238 if (A_OPTYPEG(asgn_ast) == I_CSHIFT) in inline_spread_shifts()
2246 if (A_OPTYPEG(asgn_ast) == I_EOSHIFT) { in inline_spread_shifts()
2290 A_OPTYPEP(retval, A_OPTYPEG(func_ast)); in inline_spread_shifts()
4132 A_OPTYPEG(astsrc) == I_NULL) { in rewrite_allocatable_assignment()
H A Dlowerexp.c1590 switch (A_OPTYPEG(ast)) { in add_lnop()
1600 switch (A_OPTYPEG(ast)) { in add_lnop()
2053 if (A_OPTYPEG(a) == OP_BYVAL) in lower_function()
3077 intr = A_OPTYPEG(ast); in lower_intrinsic()
4517 switch (A_OPTYPEG(ast)) { in lower_ast()
5313 switch (A_OPTYPEG(ast)) { in lower_ast()
5581 switch (A_OPTYPEG(ast)) { in lower_logical()
5799 switch (A_OPTYPEG(ast)) { in lower_logical()
5882 switch (A_OPTYPEG(ast)) { in lower_check_ast()
H A Ddinit.c1490 if (A_OPTYPEG(ast) == OP_SUB) in dinit_eval()
1494 switch (A_OPTYPEG(ast)) { in dinit_eval()
1510 if (A_OPTYPEG(ast) == I_NULL) { in dinit_eval()
H A Ddatadep.c2215 if (A_OPTYPEG(ast) != OP_SUB) in mkSub()
2221 switch (A_OPTYPEG(ast)) { in mkSub()
2261 if (A_OPTYPEG(ast) != OP_SUB) in is_linear()
2265 switch (A_OPTYPEG(ast)) { in is_linear()
3108 switch (A_OPTYPEG(astx)) { in ILI_OPC()
3132 if (A_TYPEG(astx) == A_UNOP && A_OPTYPEG(astx) == OP_SUB && in ILI_OPC()
H A Dastout.c194 switch (A_OPTYPEG(ast)) { in precedence()
226 switch (A_OPTYPEG(ast)) { in precedence()
409 switch (A_OPTYPEG(ast)) { in print_ast()
499 switch (A_OPTYPEG(ast)) { in print_ast()
810 optype = A_OPTYPEG(ast); in print_ast()
1084 switch (A_OPTYPEG(ast)) { in print_ast()
H A Dinliner.c586 astNew = mk_binop(A_OPTYPEG(ast), astNewl, astNewr, A_DTYPEG(ast)); in inline_ast()
592 astNew = mk_unop(A_OPTYPEG(ast), astNewl, A_DTYPEG(ast)); in inline_ast()
656 A_OPTYPEP(astNew, A_OPTYPEG(ast)); in inline_ast()
1661 if (A_OPTYPEG(ast) == I_PRESENT) { in replace_parms()
H A Dsemant2.c2707 A_OPTYPEG(l_ast) == OP_DIV) { in combine_fdiv()
2904 if (A_TYPEG(lop) != A_BINOP || A_OPTYPEG(lop) != OP_ADD) in reassoc_add()
2910 if (A_OPTYPEG(op1) != OP_ADD || !_assoc_term(op2)) in reassoc_add()
2915 A_OPTYPEG(op2) == OP_ADD) { in reassoc_add()
H A Ddump.c789 putoptype("optype", A_OPTYPEG(0)); in dast()
797 putoptype("optype", A_OPTYPEG(astx)); in dast()
868 putoptype("optype", A_OPTYPEG(0)); in dast()
1011 putoptype("optype", A_OPTYPEG(0)); in dast()
1311 putoptype("optype", A_OPTYPEG(0)); in dast()
1350 putoptype("optype", A_OPTYPEG(0)); in dast()
H A Dlowerilm.c941 if (A_TYPEG(upast) == A_BINOP && A_OPTYPEG(upast) == OP_ADD) { in fix_array_fields()
946 if (A_TYPEG(r) == A_BINOP && A_OPTYPEG(r) == OP_SUB) { in fix_array_fields()
1150 if (A_OPTYPEG(a) == OP_REF) { in handle_arguments()
2833 aop = A_OPTYPEG(ast); in lower_omp_atomic_update()
2857 aop = A_OPTYPEG(ast); in lower_omp_atomic_capture()
3717 if (A_TYPEG(src) == A_UNOP && A_OPTYPEG(src) == OP_LOC) { in lower_stmt()
3862 switch (A_OPTYPEG(ast)) { in lower_stmt()
3916 if (A_TYPEG(rop) == A_INTR && A_OPTYPEG(rop) == I_NULL) { in lower_stmt()
5399 plower("oin", "PREFETCH", ilm, A_OPTYPEG(ast)); in lower_stmt()
/dports/math/libpgmath/flang-d07daf3/tools/flang1/utils/ast/
H A Dast.in.h32 #define A_OPTYPEG(s) A_hw21G(s) macro

12