/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/ |
H A D | redundss.c | 649 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 D | func.c | 3177 (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 D | detect.c | 76 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 D | dtypeutl.c | 181 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 D | comm.c | 1605 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 D | outconv.c | 1050 (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 D | induc.c | 555 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 D | pstride.c | 317 if (A_OPTYPEG(astx) == I_PTR2_ASSIGN) { in _findrefs() 326 } else if (A_OPTYPEG(astx) == I_NULLIFY) { in _findrefs()
|
H A D | rest.c | 201 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 D | optutil.c | 2218 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 D | commgen.c | 1453 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 D | iterat.c | 693 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 D | lowersym.c | 2394 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 D | ast.c | 348 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 D | semutil2.c | 233 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 D | transfrm.c | 386 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 D | lowerexp.c | 1590 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 D | dinit.c | 1490 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 D | datadep.c | 2215 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 D | astout.c | 194 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 D | inliner.c | 586 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 D | semant2.c | 2707 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 D | dump.c | 789 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 D | lowerilm.c | 941 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 D | ast.in.h | 32 #define A_OPTYPEG(s) A_hw21G(s) macro
|