/dports/math/libpgmath/flang-d07daf3/tools/flang2/flang2exe/ |
H A D | iliutil.cpp | 677 ilix = ad1altili(opc, op1, ilix); in ad1mathfunc_cmplx() 1359 ilix = ad1ili(IL_CSEIR, ilix); in ad_cse() 1362 ilix = ad1ili(IL_CSEKR, ilix); in ad_cse() 1365 ilix = ad1ili(IL_CSEAR, ilix); in ad_cse() 1368 ilix = ad1ili(IL_CSESP, ilix); in ad_cse() 1371 ilix = ad1ili(IL_CSEDP, ilix); in ad_cse() 1375 ilix = ad1ili(IL_CSECS, ilix); in ad_cse() 1496 ilix = ILI_OPND(ilix, n); in ili_opnd() 13729 ilix = ILI_OPND(ilix, 1); in ili_throw_label() 13732 ilix = ILI_OPND(ilix, 1); in ili_throw_label() [all …]
|
H A D | llopt.cpp | 284 ILI_OPCP(mul->ilix, convert_mul_to_div(ILI_OPC(mul->ilix))); in maybe_undo_recip_div() 290 ILI_OPCP(mul->ilix, convert_mul_to_div(ILI_OPC(mul->ilix))); in maybe_undo_recip_div() 341 switch (ILI_OPC(ilix)) { in widenPushdown() 347 r3 = ILI_OPND(ilix, 3); in widenPushdown() 348 r4 = ILI_OPND(ilix, 4); in widenPushdown() 353 r3 = ILI_OPND(ilix, 3); in widenPushdown() 364 return ilix; in widenPushdown() 477 assert(ILI_OPC(ilix) == IL_ACON, "ilix must be ACON", ilix, ERR_Fatal); in widenAconIsPrivate() 631 if (ILI_ALT(ilix)) in widenApplyVarMap() 706 ILI_OPND(ilix, 1) = ad1ili(IL_IKMV, ILI_OPND(ilix, 1)); in widenApplyStore() [all …]
|
H A D | iliutil.h | 96 bool func_in(int ilix); 136 bool qjsr_in(int ilix); 260 int ad_cse(int ilix); 268 int ad_free(int ilix); 288 int alt_qjsr(int ilix); 348 int has_cse(int ilix); 373 int ikmove(int ilix); 471 int jsrsearch(int ilix); 476 int kimove(int ilix); 501 int qjsrsearch(int ilix); [all …]
|
H A D | verify.cpp | 85 ili_mark_first_visit(int ilix) in ili_mark_first_visit() argument 92 if (ilix >= old_size) { in ili_mark_first_visit() 95 while (ilix >= new_size) in ili_mark_first_visit() 102 v = &visited_ili[ilix]; in ili_mark_first_visit() 109 ili_visit_info(int ilix) in ili_visit_info() argument 112 if (0 < ilix && ilix < visited_size && in ili_visit_info() 264 verify_ili_ad_hoc(int ilix) in verify_ili_ad_hoc() argument 314 opc = ILI_OPC(ilix); in verify_ili_aux() 325 verify_ili_ad_hoc(ilix); in verify_ili_aux() 369 int ilix, throw_label; in verify_ilt() local [all …]
|
H A D | cgmain.cpp | 3536 instr->ilix = ilix; in ad_instr() 4024 Curr_Instr->ilix = ilix; in make_stmt() 5598 oldAdd->ilix = newFma->ilix; in overwrite_fma_add() 6373 if (instr->ilix == ilix) in find_load_cse() 6960 ilix = ILI_ALT(ilix); in gen_call_expr() 7814 ilix = ILI_ALT(ilix); in gen_llvm_expr() 9929 ilix = ILI_ALT(ilix); in add_to_cselist() 9934 if (ilix == csed->ilix) { in add_to_cselist() 9941 csed->ilix = ilix; in add_to_cselist() 10009 ilix = ILI_ALT(ilix); in get_csed_operand() [all …]
|
H A D | rmsmove.cpp | 104 int bihx, iltx, ilix, new_acon; in rm_smove() local 116 ilix = ILT_ILIP(iltx); in rm_smove() 121 srcx = ILI_OPND(ilix, 1); in rm_smove() 122 src_nme = ILI_OPND(ilix, 3); in rm_smove() 123 destx = ILI_OPND(ilix, 2); in rm_smove() 125 len = ILI_OPND(ilix, 5); in rm_smove() 129 ILI_OPCP(ilix, IL_SMOVE); in rm_smove() 130 ILI_OPND(ilix, 1) = srcx; in rm_smove() 170 ilix = ad3ili(info[i].ld, ilix, nsrc_nme, msz); in rm_smove() 172 ilix = ad4ili(info[i].st, ilix, ilix2, ndest_nme, msz); in rm_smove() [all …]
|
H A D | exp_ftn.cpp | 91 int ilix; in forceK() local 93 ilix = ili; in forceK() 95 ilix = ikmove(ilix); in forceK() 1383 ilix = ad2ili(IL_DFRAR, ilix, AR_RETVAL); in exp_ac() 1484 ilix = ad2ili(IL_KMUL, ilix, ad_kcon(0, 2)); in kanji_bytes() 1486 ilix = ad2ili(IL_IMUL, ilix, ad_icon(2L)); in kanji_bytes() 1500 ilix = ad2ili(IL_IDIV, ilix, ad_icon(2L)); in kanji_divide() 3486 ilix = BR_TRUE(type, ilix, CC_NE, sym1); in exp_bran() 3493 ilix = BR_TRUE(type, ilix, CC_GE, sym2); in exp_bran() 3609 ilix = ILI_OPND(ilix, 1); in exp_bran() [all …]
|
H A D | llsched.cpp | 116 int ilix, c; in build_idep_graph() local 128 ilix = cur_instr->ilix; in build_idep_graph() 138 if ((ilix == 0) || (instr->ilix == 0) || in build_idep_graph() 140 (ILI_OPND(ilix, 1) == ILI_OPND(instr->ilix, 2))) { in build_idep_graph() 144 c = enhanced_conflict(ILI_OPND(ilix, 2), ILI_OPND(instr->ilix, 3)); in build_idep_graph() 157 ilix = cur_instr->ilix; in build_idep_graph() 165 if ((ilix == 0) || (instr->ilix == 0) || in build_idep_graph() 167 (ILI_OPND(ilix, 2) == ILI_OPND(instr->ilix, 2))) { in build_idep_graph() 171 c = enhanced_conflict(ILI_OPND(ilix, 3), ILI_OPND(instr->ilix, 3)); in build_idep_graph() 180 if ((ilix == 0) || (instr->ilix == 0) || in build_idep_graph() [all …]
|
H A D | tgtutil.cpp | 342 ilix = ad2ili(IL_KMUL, ilix, rilix); in _tgt_target_fill_size() 449 ilix = ad1ili(IL_KAMV, ilix); in tgt_target_fill_params() 451 ilix = mk_ompaccel_store(ilix, DT_ADDR, nme_args, in tgt_target_fill_params() 1028 ilix = in ll_make_tgt_register_lib2() 1036 ilix = in ll_make_tgt_register_lib2() 1044 ilix = in ll_make_tgt_register_lib2() 1052 ilix = in ll_make_tgt_register_lib2() 1067 ilix = in ll_make_tgt_register_lib2() 1074 ilix = in ll_make_tgt_register_lib2() 1081 ilix = in ll_make_tgt_register_lib2() [all …]
|
H A D | expreg.cpp | 48 exp_rcand(int ilix, int nmex) in exp_rcand() argument 58 addrcand(ilix); in exp_rcand() 79 ilix, /* ili index of the candidate */ in reg_assign1() local 225 ilix, /* ili for the candidate */ in assign1() local 258 ilix = RCAND_VAL(cand); in assign1() 259 sym = NME_SYM(nme = ILI_OPND(ilix, 2)); in assign1() 260 addr = ILI_OPND(ilix, 1); in assign1() 348 ilix = ad3ili(ILI_OPC(ilix), addr, ILI_OPND(ilix, 2), in assign1() 349 ILI_OPND(ilix, 3)); in assign1() 354 ilt = addilt(ilt, ilitmp = ad2ili(MV_RTYPE(rtype), ilix, areg)); in assign1() [all …]
|
H A D | exp_rte.cpp | 2359 ilix = ad2ili(IL_LDA, ilix, nme); in gen_bindC_retval() 2360 ilix = ad2ili(IL_MVAR, ilix, RES_IR(0)); in gen_bindC_retval() 2363 ilix = ad2ili(IL_MVIR, ilix, RES_IR(0)); in gen_bindC_retval() 2374 ilix = ad2ili(IL_MVSP, ilix, RES_XR(0)); in gen_bindC_retval() 2394 ilix = ad2ili(IL_MVKR, ilix, RES_IR(0)); in gen_bindC_retval() 2583 ilix = ad4ili(IL_JMPM, sw_val, ilix, in genswitch() 3753 ilix = ad4ili(st_opc, ilix, res, in exp_call() 4001 ilix = ad4ili(IL_STSP, ilix, argili, in exp_call() 4011 ilix = ad4ili(IL_STDP, ilix, argili, in exp_call() 4669 ilix = sel_iconv(ilix, 0); in arg_ir() [all …]
|
H A D | expand.cpp | 653 ilix = ll_make_kmpc_spmd_kernel_init(ilix); in eval_ilm() 1446 ilix = ad1ili(IL_AIMV, ilix); in exp_store() 1470 ilix = ad1ili(IL_AKMV, ilix); in exp_store() 1473 ilix = ad1ili(IL_IKMV, ilix); in exp_store() 1484 ilix = ad1ili(IL_AIMV, ilix); in exp_store() 1486 ilix = ad1ili(IL_KIMV, ilix); in exp_store() 2485 ADDRCAND(ilix, ILI_OPND(ilix, 2)); in create_ref() 2640 ilix = ad2ili(IL_LDA, ilix, anme); in create_ref() 2910 int ilix; in exp_pure() local 2937 ilix = ad2ili(IL_APURE, ilix, cili); in exp_pure() [all …]
|
H A D | exputil.cpp | 445 ilix); in check_ilm() 446 return ilix; in check_ilm() 464 cse = ilix; in check_ilm() 491 return ilix; in check_ilm() 633 ilix = ad4ili(IL_ST, cse, base, nme, ILI_OPND(ilix, 4)); in check_ilm() 639 ilix = ad4ili(IL_STKR, cse, base, nme, ILI_OPND(ilix, 4)); in check_ilm() 677 ilix = ad_load(ilix); in check_ilm() 694 ilix = cse; in check_ilm() 709 return ilix; in check_ilm() 1258 int rg, ilix; in add_reg_arg_ili() local [all …]
|
H A D | iltutil.cpp | 62 addilt(int after, int ilix) in addilt() argument 78 p->ilip = ilix; in addilt() 79 opc = ILI_OPC(ilix); in addilt() 213 srcfunc(int ilix) in srcfunc() argument 224 iltcur = addilt(iltcur, ad1ili(IL_FREEDP, ilix)); in srcfunc() 227 iltcur = addilt(iltcur, ad1ili(IL_FREESP, ilix)); in srcfunc() 231 iltcur = addilt(iltcur, ad1ili(IL_FREECS, ilix)); in srcfunc() 236 iltcur = addilt(iltcur, ad1ili(IL_FLOAT128FREE, ilix)); in srcfunc() 243 srcfunc((int)(ILI_OPND(ilix, i))); in srcfunc() 257 reduce_ilt(int iltx, int ilix) in reduce_ilt() argument [all …]
|
H A D | regutil.cpp | 97 addrcand(int ilix) in addrcand() argument 114 msize = ILI_OPND(ilix, 3); in addrcand() 190 ILI_RAT(ilix) = rcand; in addrcand() 223 ILI_RAT(ilix) = rcand; in addrcand() 229 RCAND_VAL(rcand) = ilix; in addrcand() 326 rcand = ILI_RAT(ilix); in addrcand() 336 ILI_RAT(ilix) = rcand; in addrcand() 351 if (ILI_RAT(ilix) == 0) { in addrcand() 352 assert(ILI_RAT(ilix) != 0, "addrcand: no cand for ili", ilix, ERR_Severe); in addrcand() 909 mkrtemp(int ilix) in mkrtemp() argument [all …]
|
H A D | outliner.cpp | 441 ilix = genretvalue(ilix, result_opc); in ll_ad_outlined_func2() 443 return ilix; in ll_ad_outlined_func2() 1348 ilix = ad2ili(IL_LDA, ilix, 0); /* task[0] */ in cloneUplevel() 1378 return ilix; in loadCharLen() 1744 ilix = in ll_load_outlined_args() 1747 ilix = ad2ili(IL_LDA, ilix, addnme(NT_VAR, uplevel, 0, 0)); in ll_load_outlined_args() 1749 return ilix; in ll_load_outlined_args() 1799 return ilix; in ll_make_outlined_call() 1843 return ilix; in ll_make_outlined_call2() 1864 return ilix; in ll_make_outlined_task_call() [all …]
|
H A D | scope.cpp | 115 is_scope_label_ili(int ilix) in is_scope_label_ili() argument 117 return ILI_OPC(ilix) == IL_LABEL && is_scope_label(ILI_OPND(ilix, 1)); in is_scope_label_ili() 223 ILI_OP opc = ILI_OPC(ilix); in collect_referenced_locals() 227 int sptr = CONVAL1G(ILI_OPND(ilix, 1)); in collect_referenced_locals() 313 int ilix = ILT_ILIP(ilt); in verify_beginscopes() local 316 if (ILI_OPC(ilix) != IL_LABEL) { in verify_beginscopes() 322 lab = ILI_SymOPND(ilix, 1); in verify_beginscopes() 408 int ilix; in verify_endscopes() local 413 ilix = ILT_ILIP(ilt); in verify_endscopes() 414 if (ILI_OPC(ilix) != IL_LABEL) in verify_endscopes() [all …]
|
H A D | cgmain.h | 107 SPTR find_pointer_to_function(int ilix); 133 OPERAND *gen_call_as_llvm_instr(int sptr, int ilix); 138 OPERAND *gen_call_to_builtin(int ilix, char *fname, OPERAND *params, 145 OPERAND *gen_llvm_expr(int ilix, LL_Type *expected_type); 188 void clear_deletable_flags(int ilix);
|
H A D | ili.h | 496 #define ILI_MSZ_OF_LD(ilix) (ILI_MSZ_FROM_STC(ILI_OPND((ilix), 3))) argument 499 #define ILI_MSZ_OF_ST(ilix) (ILI_MSZ_FROM_STC(ILI_OPND((ilix), 4))) argument 504 inline MSZ GetILI_MSZ_OF_Load(int ilix) { in GetILI_MSZ_OF_Load() argument 505 return static_cast<MSZ>(ILI_MSZ_OF_LD(ilix)); in GetILI_MSZ_OF_Load() 509 inline MSZ GetILI_MSZ_OF_Store(int ilix) { in GetILI_MSZ_OF_Store() argument 510 return static_cast<MSZ>(ILI_MSZ_OF_ST(ilix)); in GetILI_MSZ_OF_Store()
|
H A D | iltutil.h | 27 int addilt(int after, int ilix); 32 int reduce_ilt(int iltx, int ilix);
|
/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/ |
H A D | induc.c | 369 if (ilix == 0) { in find_bivs() 384 assert(ilix == DEF_LHS(def), "find_bivs():enddo load", ilix, 3); in find_bivs() 393 if (ilix == 0) { in find_bivs() 786 find_fam(int ilix) in find_fam() argument 798 if (ilix == srch.load) in _check_fam() 831 if (A_M3G(ilix)) { in _fam() 837 if (A_M4G(ilix)) { in _fam() 986 asd = A_ASDG(ilix); in _fam() 1068 USE_AST(i) = ilix; in get_du() 1371 int i, ilix; in dump_ind() local [all …]
|
H A D | flow_util.c | 111 use_hash_insert(int usex, bool high_bit, bool use_match_ili, int ilix, int nmex, int iltx) in use_hash_insert() argument 113 hash_key_t key = use_hash_key(high_bit, use_match_ili, ilix, nmex, iltx); in use_hash_insert() 128 use_hash_lookup(bool high_bit, bool use_match_ili, int ilix, int nmex, int iltx) in use_hash_lookup() argument 131 hash_key_t key = use_hash_key(high_bit, use_match_ili, ilix, nmex, iltx); in use_hash_lookup()
|
H A D | invar.c | 140 AST_INVP(ilix, mark); in invariant_mark() 143 opt.invb.stg_base[i] = ilix; in invariant_mark() 154 int i, ilix; in invariant_unmark() local 158 ilix = opt.invb.stg_base[i]; in invariant_unmark() 159 if (!AST_ISINV_TEMP(ilix)) in invariant_unmark() 160 AST_INVP(ilix, 0); in invariant_unmark() 176 int i, ilix; in invariant_unmarkv() local 181 AST_INVP(ilix, 0); in invariant_unmarkv() 340 is_invariant(int ilix) in is_invariant() argument 345 invf = invar_src(ilix); in is_invariant() [all …]
|
H A D | flow_util.h | 50 void use_hash_insert(int usex, bool high_bit, bool use_match_ili, int ilix, int nmex, int iltx); 56 int use_hash_lookup(bool high_bit, bool use_match_ili, int ilix, int nmex, int iltx);
|
/dports/math/libpgmath/flang-d07daf3/tools/flang2/utils/ilmtp/ |
H A D | ilmtp.cpp | 516 int ilix = ilmtp[tpladr++]; in run() local 517 fprintf(OUT1, "%3d /* %-7s*/, %d", ilix, ilis[ilix].name.c_str(), in run() 519 for (int n = ilis[ilix].oprs; n > 0; n--) in run() 684 auto ilix = get_ili(getToken()); in ili_op() local 685 ilmtp.push_back(ilix); in ili_op() 789 if (ilis[ilix].oprs != noprs && ilix != 0) { in ili_op() 791 ii = ilis[ilix].oprs - noprs; in ili_op() 793 oss << noprs << " oprs given instead of " << ilis[ilix].oprs in ili_op() 794 << " for ili " << ilis[ilix].name; in ili_op()
|