/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/ |
H A D | commopt.c | 817 sptr = sym_of_ast(src); in Conflict_() 818 sptr1 = sym_of_ast(conf.src); in Conflict_() 1021 lhs_sptr = sym_of_ast(lhs); in is_fusable() 1053 lhs_sptr1 = sym_of_ast(lhs1); in is_fusable() 3100 int dest_sym = sym_of_ast(dest); in is_allocatable_assign() 3121 sptr = sym_of_ast(A_DESTG(ast)); in propagate_bound() 3338 old_sptr = sym_of_ast(old_lwb); in rewrite_all_shape() 3349 old_sptr = sym_of_ast(old_upb); in rewrite_all_shape() 3360 old_sptr = sym_of_ast(old_st); in rewrite_all_shape() 3517 psptr = sym_of_ast(arg); in put_forall_pcalls() [all …]
|
H A D | dinit.c | 266 num_elem = get_int_cval(sym_of_ast(AD_NUMELM(AD_PTR(sptr)))); in dinit_data() 287 num_elem = get_int_cval(sym_of_ast(AD_NUMELM(AD_PTR(memptr)))); in dinit_data() 1386 lwbd = get_int_cval(sym_of_ast(AD_LWAST(ad, i))); in find_base() 1388 if (offset < lwbd || offset > get_int_cval(sym_of_ast(AD_UPAST(ad, i)))) { in find_base() 1558 sptr = sym_of_ast(ivl->u.varref.ptr); in mark_ivl_dinit()
|
H A D | extern.h | 52 int sym_of_ast(int ast); /* ast.c */
|
H A D | semfin.c | 1709 get_int_cval(sym_of_ast(AD_LWAST(ad, dim)))) * in chk_evar() 1710 get_int_cval(sym_of_ast(AD_MLPYR(ad, dim))); in chk_evar() 1728 if (val < get_int_cval(sym_of_ast(AD_LWAST(ad, dim))) || in chk_evar() 1729 val > get_int_cval(sym_of_ast(AD_UPAST(ad, dim)))) in chk_evar() 2506 PUT(get_int_cval(sym_of_ast(AD_LWAST(ad, cnt)))); in nml_emit_desc() 2507 PUT(get_int_cval(sym_of_ast(AD_UPAST(ad, cnt)))); in nml_emit_desc() 2535 from = mk_id(sym_of_ast(AD_LWAST(ad, cnt))); in nml_emit_desc() 2544 PUT(get_int_cval(sym_of_ast(AD_LWAST(ad, cnt)))); in nml_emit_desc() 2551 from = mk_id(sym_of_ast(AD_UPAST(ad, cnt))); in nml_emit_desc() 2559 PUT(get_int_cval(sym_of_ast(AD_UPAST(ad, cnt)))); in nml_emit_desc()
|
H A D | rest.c | 875 ele = remove_subscript_expressions(ele, std, sym_of_ast(ele)); in transform_section_arg() 1169 if (sptr3 != sym_of_ast(A_LOPG(ast)) && CLASSG(sptr3) && in transform_call() 1280 if (A_TYPEG(ele) == A_ID && IS_PROC(STYPEG(sym_of_ast(ele))) ) { in transform_call() 1290 if (A_TYPEG(ele) == A_ID && IS_PROC(STYPEG(sym_of_ast(ele))) ) { in transform_call() 1291 int proc = sym_of_ast(ele); in transform_call() 1352 IS_PROC(STYPEG(sym_of_ast(ele)))) { in transform_call() 1354 int tmp = get_proc_ptr(sym_of_ast(ele)); in transform_call() 1355 if (INTERNALG(sym_of_ast(ele))) { in transform_call() 1487 SPTR fval = FVALG(sym_of_ast(A_LOPG(ele))); in transform_call() 2424 sptr = sym_of_ast(arr); in check_nonseq_element() [all …]
|
H A D | semant3.c | 312 sptr = sym_of_ast(A_LOPG(ast)); in semant3() 1077 sp = sym_of_ast(ast); in semant3() 1129 sp = sym_of_ast(ast); in semant3() 1162 sp = sym_of_ast(ast); in semant3() 4808 err_protected(sym_of_ast(o_ast), in semant3() 5143 sptr = sym_of_ast(itemp->ast); in semant3() 5166 sptr = sym_of_ast(itemp->ast); in semant3() 5620 if (is_protected(sym_of_ast(ast))) { in semant3() 5745 sptr = sym_of_ast(ast); in check_doconcurrent_ast() 5946 sptr = sym_of_ast(A_SRCG(ast)); in check_doconcurrent_ast() [all …]
|
H A D | dtypeutl.c | 194 d = sym_of_ast(d); in size_of() 625 d = sym_of_ast(ADD_NUMELM(dtype)); in size_ast() 639 dd = sym_of_ast(len); in size_ast() 779 d = sym_of_ast(ADD_NUMELM(dtype)); in size_ast_of() 792 dd = sym_of_ast(len); in size_ast_of() 1077 d = sym_of_ast(AD_NUMELM(ad)); in extent_of() 2328 strcat(string, getprint(sym_of_ast(ast))); in getast() 2331 sprintf(b, "\\%d", sym_of_ast(ast)); in getast()
|
H A D | transfrm.c | 2399 dscast = sym_of_ast(astmem); in make_forall() 2724 lhs_sptr = sym_of_ast(lhs); in use_lhs_for_user_func() 3038 SPTR sptr = sym_of_ast(ast); in build_sdsc_node() 4100 parentDestSptr = sym_of_ast(astdest); in rewrite_allocatable_assignment() 4144 parentSrcSptr = sym_of_ast(astsrc); in rewrite_allocatable_assignment() 4240 sym_of_ast(astdest), astsrc, src_sdsc_ast); in rewrite_allocatable_assignment() 4313 sptr = sym_of_ast(A_LOPG(A_PARENTG(astsrc))); in rewrite_allocatable_assignment() 4315 sptr = ast_is_sym(astsrc) ? sym_of_ast(astsrc) : 0; in rewrite_allocatable_assignment()
|
H A D | semutil2.c | 648 ASSNP(sym_of_ast(lb), 1); in gen_defer_shape() 670 ASSNP(sym_of_ast(ub), 1); in gen_defer_shape() 694 ASSNP(sym_of_ast(ADD_EXTNTAST(dt, i)), 1); in gen_defer_shape() 1417 dim_size = ad_val_of(sym_of_ast(AD_UPAST(ad, i))) - in size_of_array() 10321 o_lowb = ad_val_of(sym_of_ast(AD_LWAST(adsc, 0))); in eval_sub_index() 11489 objectsptr = sym_of_ast(object); in gen_alloc_dealloc() 11498 sptr = sym_of_ast(itemp->ast); in gen_alloc_dealloc() 11596 int sptr = sym_of_ast(ast); in check_and_add_auto_dealloc_from_ast() 11861 newast = get_parm_ast(parent, sym_of_ast(ast), DTYPEG(sym_of_ast(parent))); in add_parent_to_bounds() 12216 int parentDty = DTYPEG(sym_of_ast(parentMem)); in genPolyAsn() [all …]
|
H A D | semantio.c | 1073 set_assn(sym_of_ast(SST_ASTG(stkptr))); in semantio() 1075 set_assn(sym_of_ast(SST_ASTG(stkptr))); in semantio() 1251 set_assn(sym_of_ast(SST_ASTG(stkptr))); in semantio() 1253 set_assn(sym_of_ast(SST_ASTG(stkptr))); in semantio() 1733 set_assn(sym_of_ast(SST_ASTG(RHS(3)))); in semantio() 1759 set_assn(sym_of_ast(SST_ASTG(RHS(3)))); in semantio() 4581 sptr = sym_of_ast(SST_ASTG(stk)); in chk_unitid() 5633 error(453, 3, gbl.lineno, SYMNAME(sym_of_ast(ast)), ""); in add_iolptrs()
|
H A D | lowerilm.c | 995 tbp_pass_arg = sym_of_ast(A_LOPG(ast)); in handle_arguments() 1018 A_INVOKING_DESCG(ast) ? sym_of_ast(A_INVOKING_DESCG(ast)) : 0; in handle_arguments() 1342 sdsc = A_INVOKING_DESCG(ast) ? sym_of_ast(A_INVOKING_DESCG(ast)) : 0; in handle_arguments() 1390 psptr = sym_of_ast(a); in handle_arguments() 1398 sdsc = A_INVOKING_DESCG(ast) ? sym_of_ast(A_INVOKING_DESCG(ast)) : 0; in handle_arguments() 1423 int sdsc = A_INVOKING_DESCG(ast) ? sym_of_ast(A_INVOKING_DESCG(ast)) in handle_arguments() 1440 int sdsc = A_INVOKING_DESCG(ast) ? sym_of_ast(A_INVOKING_DESCG(ast)) in handle_arguments() 2991 sptr = sym_of_ast(src); in lower_stmt() 4621 sptr = sym_of_ast(lop); in lower_stmt()
|
H A D | vsub.c | 1621 sptrlhs = sym_of_ast(lhs); in scalar_lhs_dependency() 1924 if (sptr != sym_of_ast(expr)) { in take_out_assumsz_array() 2107 sptrlhs = sym_of_ast(lhs); in forall_bound_dependence()
|
H A D | redundss.c | 685 sptr = sym_of_ast(A_SRCG(ast)); in markmodified() 704 sptr = sym_of_ast(A_SRCG(ast)); in markmodified()
|
H A D | semant2.c | 784 sp = sym_of_ast(ast); in semant2() 940 sp = sym_of_ast(ast); in semant2() 958 if (pass_sym_of_ast(ast) != sym_of_ast(ast)) { in semant2()
|
H A D | outconv.c | 347 int sptr = sym_of_ast(A_SRCG(ast)); in convert_omp_workshare() 409 lsptr = sym_of_ast(A_DESTG(ast)); in convert_omp_workshare() 2713 sptrsd = sym_of_ast(tempsd); in convert_template_instance() 3242 sptr = sym_of_ast(expr); in is_same_mask() 3243 sptr1 = sym_of_ast(expr1); in is_same_mask() 3506 astCall = begin_call(A_CALL, sym_of_ast(A_LOPG(astBlock)), 8); in conv_forall() 3977 sptr_lhs = sym_of_ast(lhs); in forall_dependency()
|
H A D | semfunc.c | 711 ADDRTKNP(sym_of_ast(ast), 1); in gen_and_assoc_tmp_ptr() 1063 sym = sym_of_ast(return_value); in func_call2() 1073 CLASSP(sym_of_ast(return_value), CLASSG(FVALG(func_sptr))); in func_call2() 3539 sptr = sym_of_ast(ast); in subr_call2() 7001 sptr = sym_of_ast(ARG_AST(0)); /* intent OUT arg */ in ref_pd() 7352 count = get_int_cval(sym_of_ast(AD_NUMELM(AD_DPTR(dtype1)))); in ref_pd() 7421 count != get_int_cval(sym_of_ast(AD_NUMELM(AD_DPTR(dtype2))))) { in ref_pd() 7451 count != get_int_cval(sym_of_ast(AD_NUMELM(AD_DPTR(dtype2))))) { in ref_pd() 11360 sptr = sym_of_ast(ARG_AST(0)); /* the HARVEST arg */ in ref_pd_subr() 11387 sptr = sym_of_ast(ARG_AST(2)); /* intent OUT arg */ in ref_pd_subr() [all …]
|
H A D | func.c | 2233 is_back_true = get_int_cval(sym_of_ast(back)); in rewrite_func_ast() 2359 ARGT_ARG(newargt, 2) = size_ast(sym_of_ast(mask), DDTG(A_DTYPEG(mask))); in rewrite_func_ast() 2908 sptr = sym_of_ast(arg_gbl.lhs); in rewrite_func_ast() 3729 if (!ast_is_sym(lhs) || !ALLOCATTRG(sym_of_ast(lhs))) in allocate_lhs_if_needed() 3838 sptr_lhs = sym_of_ast(lhs); in rewrite_calls() 3847 sptr_lhs = sym_of_ast(lhs); in rewrite_calls() 6461 (sym_of_ast(dest) != pass_sym_of_ast(dest)) in inline_reduction_f90()
|
H A D | semfunc2.c | 2395 if (eldact == 0 && STYPEG(sym_of_ast(actual)) == ST_PROC && in chk_arguments() 2577 if (is_protected(sym_of_ast(actual))) { in chk_arguments()
|
H A D | lowerexp.c | 1880 A_INVOKING_DESCG(ast) ? sym_of_ast(A_INVOKING_DESCG(ast)) : 0; in lower_function() 2209 int sdsc = A_INVOKING_DESCG(ast) ? sym_of_ast(A_INVOKING_DESCG(ast)) in lower_function() 2233 sdsc = A_INVOKING_DESCG(ast) ? sym_of_ast(A_INVOKING_DESCG(ast)) : 0; in lower_function()
|
H A D | semutil.c | 1748 set_assn(sym_of_ast(lval)); in mklvalue() 3462 sym = sym_of_ast(lhs); in subst_lhs_arrfn() 3754 set_assn(sym_of_ast(dest)); in assign_intrinsic_to_pointer() 3786 set_assn(sym_of_ast(A_LOPG(SST_ASTG(stktop)))); in assign_pointer()
|
H A D | semsym.c | 1368 sptr = sym_of_ast(astx); in mark_static()
|
H A D | ast.c | 2694 sym_of_ast(int ast) in sym_of_ast() function 3412 sptr = sym_of_ast(arr_ast); in simply_contiguous() 3417 sptr = sym_of_ast(arr_ast); in simply_contiguous() 3422 sptr = sym_of_ast(arr_ast); in simply_contiguous()
|
H A D | comm.c | 603 sptr = sym_of_ast(A_DESTG(astStmt)); in record_barrier() 608 sptr = sym_of_ast(A_DESTG(A_IFSTMTG(astStmt))); in record_barrier()
|
H A D | inliner.c | 1695 sptr = sym_of_ast(ast1); in replace_parms()
|
/dports/math/libpgmath/flang-d07daf3/tools/flang1/utils/ast/ |
H A D | ast.in.h | 391 int sym_of_ast (int);
|