/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/ |
H A D | hpfutl.c | 35 int zero = mk_cval(0, DT_INT); in mk_ceil_div() 36 int one = mk_cval(1, DT_INT); in mk_ceil_div() 81 low = mk_cval(1, DT_INT); in mk_size() 86 return mk_cval(t, DT_INT); in mk_size() 89 mk_cval(1, DT_INT), DT_INT); in mk_size()
|
H A D | semantio.c | 670 (void)add_io_arg(mk_cval(bitv, DT_INT)); in semantio() 695 (void)add_io_arg(mk_cval(bitv, DT_INT)); in semantio() 745 (void)add_io_arg(mk_cval(bitv, DT_INT)); in semantio() 870 (void)add_io_arg(mk_cval(bitv, DT_INT)); in semantio() 1610 ast = mk_cval(size_of(dtype), DT_INT); in semantio() 1613 ast = mk_cval(size_of(dtype), DT_INT); in semantio() 1631 ast = mk_cval(size_of(dtype), DT_INT); in semantio() 1655 (void)add_io_arg(mk_cval(bitv, DT_INT)); in semantio() 2361 (void)add_io_arg(mk_cval(bitv, DT_INT)); in semantio() 4560 PTV(PT_UNIT) = mk_cval(unit, DT_INT); in chk_unitid() [all …]
|
H A D | func.c | 481 return mk_cval(sptr, dtype); in _makezero() 1917 dim = mk_cval(0, DT_INT); in rewrite_func_ast() 1949 mask = mk_cval(1, DT_LOG); in rewrite_func_ast() 2007 mask = mk_cval(1, DT_LOG); in rewrite_func_ast() 2030 dim = mk_cval(1, DT_INT); in rewrite_func_ast() 2062 dim = mk_cval(1, DT_INT); in rewrite_func_ast() 2120 dim = mk_cval(1, DT_INT); in rewrite_func_ast() 2162 mask = mk_cval(1, DT_LOG); in rewrite_func_ast() 2237 mask = mk_cval(1, DT_LOG); in rewrite_func_ast() 2287 mask = mk_cval(1, DT_LOG); in rewrite_func_ast() [all …]
|
H A D | bblock.c | 180 ast = mk_assn_stmt(ent_select_id, mk_cval(ent_cnt, DT_INT), DT_INT); in bblock() 219 ast = mk_assn_stmt(ent_select_id, mk_cval(ent_cnt, DT_INT), DT_INT); in bblock() 722 rhs = ast_intr(I_MAX, DTYPEG(cvlen), 2, rhs, mk_cval(0, DTYPEG(cvlen))); in gen_early_bnd_dependencies() 780 rhs = ast_intr(I_MAX, DTYPEG(cvlen), 2, rhs, mk_cval(0, DTYPEG(cvlen))); in gen_early_str_len() 1109 EQV_SS(ss, i) = mk_cval(lbval, DT_INT); in make_equiv_ss() 1121 EQV_SS(ss, i) = mk_cval(lbval + p, DT_INT); in make_equiv_ss() 1291 sizeast = mk_cval(size, DT_INT); in add_equivalence()
|
H A D | outconv.c | 576 ss[0] = mk_cval((INT)offset, DT_INT); in _pghpf_bound() 581 ss[0] = mk_cval((INT)offset, DT_INT); in _pghpf_bound() 583 a = mk_cval(1, astb.bnd.dtype); in _pghpf_bound() 594 ss[0] = mk_cval((INT)(offset), DT_INT); in _pghpf_bound() 601 ss[0] = mk_cval((INT)(offset), DT_INT); in _pghpf_bound() 605 a = mk_cval(1, astb.bnd.dtype); in _pghpf_bound() 643 ss[0] = mk_cval((INT)offset, DT_INT); in _pghpf_size() 728 ret = mk_cval(size_of(dtype), DT_INT); in _pgi_element_size() 746 ret = mk_cval(dtype_to_arg(dtype), DT_INT); in _pgi_kind() 810 ss[0] = mk_cval((INT)offset, DT_INT); in _PDsize() [all …]
|
H A D | hlvect.c | 318 mk_cval(STRIPSIZE - 1, DT_INT); in hlv_getvsym() 320 AD_NUMELM(ad) = mk_cval(STRIPSIZE, DT_INT); in hlv_getvsym()
|
H A D | transfrm.c | 2253 dim = mk_cval(1, DT_INT); in inline_spread_shifts() 2261 shift = mk_cval(-1 * cshift, DT_INT); in inline_spread_shifts() 3146 ARGT_ARG(argt, 2) = mk_unop(OP_VAL, mk_cval(ndim, astb.bnd.dtype), astb.bnd.dtype); in build_conformable_func_node() 3184 ARGT_ARG(argt, 2) = mk_unop(OP_VAL, mk_cval(ndim, astb.bnd.dtype), astb.bnd.dtype); in build_conformable_func_node() 3213 ARGT_ARG(argt, 1) = mk_unop(OP_VAL, mk_cval(ndim, astb.bnd.dtype), astb.bnd.dtype); in build_conformable_func_node() 3540 int subscr = mk_cval(get_global_lower_index(i), astb.bnd.dtype); in gen_bounds_assignments() 3544 subscr = mk_cval(get_global_upper_index(i), astb.bnd.dtype); in gen_bounds_assignments() 3548 subscr = mk_cval(get_global_extent_index(i), astb.bnd.dtype); in gen_bounds_assignments() 3647 subscr = mk_cval(get_global_lower_index(i), astb.bnd.dtype); in build_allocation_item() 3649 subscr = mk_cval(get_global_upper_index(i), astb.bnd.dtype); in build_allocation_item() [all …]
|
H A D | dtypeutl.c | 646 d = mk_cval(val1, astb.bnd.dtype); in size_ast() 755 ast_intr(I_MAX, astb.bnd.dtype, 2, clen, mk_cval(0, astb.bnd.dtype)); in size_ast_of() 758 len = mk_cval(mlpyr, astb.bnd.dtype); in size_ast_of() 770 return mk_cval(dtypeinfo[DTY(DT_PTR)].size, DT_INT); in size_ast_of() 863 len = mk_cval(0, DT_INT4); in string_expr_length() 865 len = ast_intr(I_MAX, DT_INT4, 2, len, mk_cval(0, DT_INT4)); in string_expr_length() 867 len = ast_intr(I_MAX, DT_INT8, 2, len, mk_cval(0, DT_INT8)); in string_expr_length() 888 return ast_intr(I_MAX, dt_int, 2, len, mk_cval(0, dt_int)); in string_expr_length() 994 clen = ast_intr(I_MAX, DTYPEG(cvlen), 2, clen, mk_cval(0, DTYPEG(cvlen))); in fix_dtype()
|
H A D | commgen.c | 468 mask = mk_cval(1, DT_LOG); in generate_gather() 469 mask_sec_ast = mk_cval(dtype_to_arg(A_DTYPEG(mask)), DT_INT); in generate_gather() 529 ARGT_ARG(argt, 6) = mk_cval(vflag, DT_INT); in generate_gather() 530 ARGT_ARG(argt, 7) = mk_cval(pflag, DT_INT); in generate_gather() 1343 s = mk_cval(1, DT_INT); in fill_cyclic_k() 1380 ARGT_ARG(argt, 1) = mk_cval(cdim + 1, DT_INT); in fill_cyclic_k()
|
H A D | ast.c | 170 astb.i0 = mk_cval((INT)0, DT_INT); in ast_init() 171 astb.i1 = mk_cval((INT)1, DT_INT); in ast_init() 200 astb.k0 = mk_cval((INT)0, DT_INT8); in ast_init() 201 astb.k1 = mk_cval((INT)1, DT_INT8); in ast_init() 571 mk_cval(INT v, DTYPE dtype) in mk_cval() function 608 return mk_cval(v, dtype); in mk_isz_cval() 875 rop = mk_cval(-v2, DT_INT); in mk_binop() 898 rop = mk_cval(-v2, DT_INT); in mk_binop() 936 ast = mk_cval(v, DT_INT); in mk_binop() 1019 new = mk_cval(v1 + con, DT_INT); in reduce_iadd() [all …]
|
H A D | semfunc.c | 5402 ARGT_ARG(argt, 0) = mk_cval(count, DT_INT); in ref_intrin() 6026 ARG_AST(4) = mk_cval(SCFTN_FALSE, DT_LOG); in ref_pd() 6058 ARG_AST(3) = mk_cval(SCFTN_FALSE, DT_LOG); in ref_pd() 6268 sem.bounds[0].upast = mk_cval(rank, stb.user.dt_int); in ref_pd() 6823 add_arg(mk_cval((INT)1, astb.bnd.dtype)); in ref_pd() 6979 ARG_AST(1) = mk_cval(size_of(dtype1), DT_INT); in ref_pd() 7651 add_arg(mk_cval(size_of(DDTG(A_DTYPEG(ast))), DT_INT)); in ref_pd() 9516 ARG_AST(2) = mk_cval((INT)SCFTN_FALSE, DT_LOG); in ref_pd() 9931 ast = mk_cval((INT)SCFTN_FALSE, DT_LOG); in ref_pd() 10700 nelems = mk_cval(1, dtyper); in ref_pd() [all …]
|
H A D | semutil.c | 2989 dtype = get_type(2, (int)DTY(dtype), mk_cval(cvlen, DT_INT4)); in chksubstr() 2994 dtype = get_type(2, (int)DTY(dtype), mk_cval(cvlen, DT_INT4)); in chksubstr() 3005 cvlen = ast_intr(I_MAX, DT_INT4, 2, cvlen, mk_cval(0, DT_INT4)); in chksubstr() 3012 dtype = get_type(2, (int)DTY(dtype), mk_cval(cvlen, DT_INT4)); in chksubstr() 3090 dtype = get_type(2, TY_NCHAR, mk_cval(strlen(str), DT_INT4)); in ch_substring() 3117 dtype = get_type(2, TY_NCHAR, mk_cval(cvlen, DT_INT4)); in ch_substring() 3126 dtype = get_type(2, TY_CHAR, mk_cval(cvlen, DT_INT4)); in ch_substring() 4066 src_len_ast = mk_cval(0, astb.bnd.dtype); in add_ptr_assign() 5293 rlen = mk_cval(string_length(rdtype), DT_INT4); in binop() 5295 llen = mk_cval(string_length(ldtype), DT_INT4); in binop() [all …]
|
H A D | dpm_out.c | 279 ARGT_ARG(argt, 1) = mk_cval(ndim, DT_INT); in trans_mkproc() 504 glb = mk_cval(1, DT_INT); in make_alnd() 512 gub = mk_cval(1, DT_INT); in make_alnd() 1769 ARGT_ARG(argt, 0) = mk_cval(fl.avl, DT_INT); in emit_fl() 2692 subs[0] = mk_cval(1, astb.bnd.dtype); in exist_test() 3190 ARGT_ARG(argt, 6) = mk_cval(TMPL_RANK(alnd), DT_INT); in emit_kopy_in() 3191 ARGT_ARG(argt, 7) = mk_cval(dtype_to_arg(dtype), DT_INT); in emit_kopy_in() 3359 ARGT_ARG(argt, 4) = mk_cval(INTENTG(arg), DT_INT); in gen_copy_out() 3432 rhs = ast_intr(I_MAX, DTYPEG(cvlen), 2, rhs, mk_cval(0, DTYPEG(cvlen))); in gen_ptr_in() 3605 mk_cval(ENTNUMG(entry), DT_INT), DT_LOG); in open_entry_guard()
|
H A D | module.c | 1396 newdtype = get_type(2, DTY(dtype), mk_cval(padsize, DT_INT4)); in add_padding() 1400 ADD_LWAST(newdtype, 0) = ADD_LWBD(newdtype, 0) = mk_cval(1, DT_INT); in add_padding() 1402 mk_cval(padsize, DT_INT); in add_padding() 1403 ADD_NUMELM(newdtype) = mk_cval(padsize, DT_INT); in add_padding()
|
H A D | semutil2.c | 1990 ast_replace(id, mk_cval(i, astb.bnd.dtype)); in compute_size_ido() 1998 ast_replace(id, mk_cval(i, astb.bnd.dtype)); in compute_size_ido() 3221 sem.bounds[0].upast = mk_cval(rank, stb.user.dt_int); in mk_ulbound_intrin() 3509 sem.bounds[0].upast = mk_cval(rank, stb.user.dt_int); in mk_size_intrin() 3572 aclp->u1.ast = mk_cval(0, aclp->dtype); in mk_transfer_intrin() 4418 l->u1.ast = mk_cval(i, l->dtype); in construct_acl_from_ast() 6459 ast = mk_cval(aval, DT_INT); in dinit_getval() 8742 elem->u1.ast = mk_cval(locs[i], loc_dt); in do_eval_minval_or_maxval() 8801 mask->u1.ast = mk_cval(gbl.ftn_true, DT_LOG); in eval_minval_or_maxval() 10006 tacl->repeatc = mk_cval(idx - index, DT_INT); in eval_reshape() [all …]
|
H A D | semfin.c | 2524 subs[0] = mk_cval(static_cnt - 3, DT_INT); in nml_emit_desc() 2536 subs[0] = mk_cval(static_cnt, DT_INT); in nml_emit_desc() 2553 subs[0] = mk_cval(static_cnt, DT_INT); in nml_emit_desc() 3591 mk_unop(OP_VAL, mk_cval(rank_of_sym(sptr), DT_INT4), DT_INT4); in init_derived_type()
|
H A D | symutl.c | 1783 a = mk_binop(OP_SUB, a, mk_cval(1, A_DTYPEG(a)), A_DTYPEG(a)); in handle_non_cnst_dim() 2072 subscr[j] = mk_triple(mk_cval(1, DT_INT), ncopies, 0); in mk_spread_sptr() 3226 rhs = ast_intr(I_MAX, DTYPEG(cvlen), 2, rhs, mk_cval(0, DTYPEG(cvlen))); in mk_mem_allocate() 4034 rhs = ast_intr(I_MAX, DTYPEG(cvlen), 2, rhs, mk_cval(0, DTYPEG(cvlen))); in add_auto_len()
|
H A D | comm.c | 2499 mask = mk_cval(1, DT_LOG); in emit_sum_scatterx() 2500 mask_sec = mk_cval(dtype_to_arg(A_DTYPEG(mask)), DT_INT); in emit_sum_scatterx() 2518 ARGT_ARG(argt, 8) = mk_cval(vflag, DT_INT); in emit_sum_scatterx() 2519 ARGT_ARG(argt, 9) = mk_cval(pflag, DT_INT); in emit_sum_scatterx()
|
H A D | semant2.c | 1987 dtype = get_type(2, TY_NCHAR, mk_cval(i, DT_INT4)); in semant2() 2071 dtype = get_type(2, TY_NCHAR, mk_cval(i, DT_INT4)); in semant2()
|
H A D | rest.c | 3028 ARGT_ARG(copy_args, 4) = mk_cval(2, DT_INT); in copy_arg_to_seq_tmp() 3130 ARGT_ARG(copy_args, 4) = mk_cval(2, DT_INT); in copy_arg_to_seq_tmp() 3199 ARGT_ARG(copy_args, 4) = mk_cval(2, DT_INT); in copy_arg_to_seq_tmp()
|
H A D | dinit.c | 305 substr_dtype = get_type(2, DTY(A_DTYPEG(ast)), mk_cval(len, DT_INT4)); in dinit_data()
|
H A D | semant3.c | 1447 SST_ASTP(RHS(rhstop), mk_cval(-1, DT_INT)); in semant3() 1985 ast2 = mk_cval(SCFTN_TRUE, DT_LOG); in semant3() 4212 int tag = mk_cval(dtype_to_arg(src_dtype), astb.bnd.dtype); in semant3() 4388 mk_unop(OP_VAL, mk_cval(SDSCG(dest) && !CLASSG(SDSCG(dest)) ? in semant3()
|
H A D | semant.c | 4759 sem.gcvlen = mk_cval(SST_SYMG(RHS(2)), DT_INT4); in semant1() 4778 sem.gcvlen = mk_cval(SST_SYMG(RHS(3)), DT_INT4); in semant1() 6549 ast = mk_cval(conval, dtype); in semant1() 7207 ast = mk_cval(SST_CVALG(RHS(1)), DT_INT4); in semant1() 7440 ast = mk_cval(SCFTN_TRUE, DT_LOG); in semant1() 7450 ast = mk_cval(SCFTN_FALSE, DT_LOG); in semant1()
|
H A D | semsmp.c | 5428 itemp->ast = mk_cval(1, DT_INT); in semsmp() 5479 itemp->ast = mk_cval(1, DT_INT); in semsmp() 5528 SST_ASTP(LHS, mk_cval(1, DT_INT)); in semsmp()
|
/dports/math/libpgmath/flang-d07daf3/tools/flang1/utils/ast/ |
H A D | ast.in.h | 353 int mk_cval (INT, DTYPE);
|