/dports/math/libpgmath/flang-d07daf3/tools/flang2/flang2exe/ |
H A D | ll_ftn.cpp | 308 fval = FVALG(func_sptr); in ll_process_routine_parameters() 421 if (param_sptr == FVALG(func_sptr)) in ll_process_routine_parameters() 605 fval = FVALG(func_sptr); in get_return_type() 662 int fval = FVALG(func_sptr); in llvm_args_valid() 875 FVALP(sptr, FVALG(oldsptr)); in make_new_funcsptr() 897 int fval = FVALG(gbl.currsub); in get_entries_argnum() 1044 } else if (marg_sptr == FVALG(sptr)) { in write_dummy_as_local_in_entry() 1063 if (FVALG(sptr) && SCG(FVALG(sptr)) != SC_DUMMY) { in write_dummy_as_local_in_entry() 1064 DeclareSPtrAsLocal(FVALG(sptr), 1); in write_dummy_as_local_in_entry() 1125 fval = FVALG(sptr); in print_entry_subroutine() [all …]
|
H A D | exp_rte.cpp | 250 if (sym == FVALG(func)) { in needlen() 605 if (pfinfo[i].fval == FVALG(func)) { in pp_entries() 611 pfinfo[retgrp_cnt].fval = FVALG(func); in pp_entries() 615 SYMNAME(FVALG(func))); in pp_entries() 905 if (pfinfo[i].fval == FVALG(func)) { in pp_entries_mixedstrlen() 911 pfinfo[retgrp_cnt].fval = FVALG(func); in pp_entries_mixedstrlen() 915 SYMNAME(FVALG(func))); in pp_entries_mixedstrlen() 1246 (!CLASSG(argsym) || FVALG(func) == argsym)))) { in check_desc()
|
H A D | symtab.cpp | 1247 (int)FUNCLINEG(sptr), COPYPRMSG(sptr), BIHNUMG(sptr), FVALG(sptr)); in symdentry() 1288 DPDSCG(sptr), FVALG(sptr)); in symdentry()
|
/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/ |
H A D | semfin.c | 295 int fval_sptr = FVALG(func_sptr); in prepend_func_result_as_first_arg() 453 if (ASUMSZG(FVALG(sptr))) in semfin() 593 if (ASUMSZG(FVALG(sptr))) in semfin() 598 STYPEP(FVALG(sptr), ST_VAR); in semfin() 600 allocatable_member(FVALG(sptr)) || ADJLENG(FVALG(sptr))) { in semfin() 617 fval = FVALG(iface); in semfin() 1132 if (FVALG(sptr)) { in fix_args() 1133 arg = FVALG(sptr); in fix_args() 3465 if (FVALG(sptr)) { in misc_checks() 3466 DCLCHK(FVALG(sptr)); in misc_checks() [all …]
|
H A D | lowersym.c | 1092 fval = FVALG(sptr); in lower_prepare_symbols() 1369 fval = FVALG(ent); in lower_init_sym() 2005 fval = FVALG(sptr); in lower_visit_symbol() 2056 fval = FVALG(sptr); in lower_visit_symbol() 3159 if (FVALG(sptr)) { in lower_linearized() 4094 } else if (CMPLXFUNC_C && FVALG(sptr) && DT_ISCMPLX(DTYPEG(FVALG(sptr)))) { in lower_symbol() 4107 if (FVALG(sptr) && !ADJLENG(FVALG(sptr))) in lower_symbol() 4112 if (FVALG(sptr)) in lower_symbol() 4456 if (FVALG(sptr) && !ADJLENG(FVALG(sptr))) in lower_symbol() 5014 if (FVALG(sptr)) { in lower_symbols() [all …]
|
H A D | symtab.c | 2539 if (!eq_dtype2(DTYPEG(FVALG(iface1)), DTYPEG(FVALG(iface2)), 0)) in cmp_interfaces() 2685 if (FVALG(sym1) && FVALG(sym2) && dpdsc > 0 && dpdsc2 > 0) { in cmp_interfaces_strict() 2697 if (FVALG(sym1) == psptr) { in cmp_interfaces_strict() 2704 if (FVALG(sym2) == psptr2) { in cmp_interfaces_strict() 2709 psptr = FVALG(sym1); in cmp_interfaces_strict() 2710 psptr2 = FVALG(sym2); in cmp_interfaces_strict() 2774 if ((FVALG(sym1) && !FVALG(sym2)) || (FVALG(sym2) && !FVALG(sym1))) { in cmp_interfaces_strict() 2885 if (FVALG(iface) > NOSYM) { in instantiate_interface() 2886 fval = insert_sym_first(FVALG(iface)); in instantiate_interface() 2896 if (ENCLFUNCG(FVALG(iface)) == iface) { in instantiate_interface() [all …]
|
H A D | semfunc2.c | 1320 fval = FVALG(ent); in ref_entry() 1424 if (FVALG(ent)) { in get_fval_array() 1425 sptr = insert_sym(FVALG(ent)); in get_fval_array() 2086 FVALG(formal) && FVALG(actual)); in compat_arg_lists() 2239 if (FVALG(arg)) in chk_arguments() 2240 ddum = DTYPEG(FVALG(arg)); in chk_arguments() 2262 if (FVALG(ss)) in chk_arguments() 2263 eldact = DTYPEG(FVALG(ss)); in chk_arguments() 2392 (STYPEG(A_SPTRG(actual)) != ST_PROC || FVALG(A_SPTRG(actual))) || in chk_arguments() 2536 s = FVALG(s); in chk_arguments()
|
H A D | semtbp.c | 324 if (!INMODULEG(curr->impSptr) || !dpdsc || paramct != 1 || FVALG(sym)) { in initFinalSub() 741 (FVALG(imp) && !FVALG(sym)) || (FVALG(sym) && !FVALG(imp)) || in semCheckTbp() 758 } else if (FVALG(imp) && FVALG(sym)) { in semCheckTbp() 759 psptr = FVALG(imp); in semCheckTbp() 760 psptr2 = FVALG(sym); in semCheckTbp()
|
H A D | exterf.c | 691 fval = FVALG(sptr); in export_some_procedure() 695 if (aux.dpdsc_base[dpdsc] == FVALG(sptr)) { in export_some_procedure() 713 fval = FVALG(sptr); in export_some_args() 834 if (gbl.internal && FVALG(gbl.currsub) && in export_host_subprogram() 835 (DTY(DTYPEG(FVALG(gbl.currsub))) != TY_ARRAY || in export_host_subprogram() 836 !ADD_DEFER(DTYPEG(FVALG(gbl.currsub))))) { in export_host_subprogram() 838 mark_dtype_ast_idstr(DTYPEG(FVALG(gbl.currsub))); in export_host_subprogram() 1826 if (FVALG(sptr)) { in queue_symbol() 1827 queue_symbol(FVALG(sptr)); in queue_symbol()
|
H A D | semant.c | 2028 if (FVALG(sptr)) in semant1() 5354 DCLDP(FVALG(sptr), TRUE); in semant1() 5445 sptr = FVALG(sptr); in semant1() 5829 if (FVALG(sptr)) { in semant1() 5863 if (FVALG(sptr)) { in semant1() 6184 if (FVALG(sptr) && !DCLDG(FVALG(sptr))) { in semant1() 9509 if (FVALG(sptr)) { in semant1() 12473 if (FVALG(e) == sptr) in copy_type_to_entry() 12709 fval = FVALG(sptr); in create_func_entry() 12787 sptr = FVALG(sptr); in create_var() [all …]
|
H A D | semsym.c | 646 if (STYPEG(sptr) == ST_ENTRY && FVALG(sptr)) in declsym() 647 sptr = FVALG(sptr); in declsym() 953 (gbl.rutype == RU_FUNC || (sptr == gbl.outersub && FVALG(sptr)))) { in refsym() 957 if (FVALG(sl) == sptr) { in refsym() 1952 if (STYPEG(orig) == ST_PROC && FVALG(orig) == new &&SCG(orig) == SC_EXTERN) in check_parref()
|
H A D | rest.c | 1487 SPTR fval = FVALG(sym_of_ast(A_LOPG(ele))); in transform_call() 1716 STYPEG(sptr) == ST_MEMBER && FVALG(entry) != inface_arg) { in transform_call() 1731 FVALG(entry) == inface_arg) { in transform_call() 1787 POINTERG(sptr) && FVALG(entry) == inface_arg) { in transform_call() 1811 if (i == 0 && sptrsdsc && iface && FVALG(iface) && in transform_call() 1812 ALLOCATTRG(FVALG(iface))) { in transform_call()
|
H A D | dpm_out.c | 1710 f_descr = FVALG(this_entry); in undouble_callee_args_f90() 2736 this_entry_fval = FVALG(this_entry); in interface_for_entry() 2831 fval = FVALG(sptrA); in bounds_depends() 5356 this_entry_fval = FVALG(this_entry); in interface_for_llvmiface() 5416 f_descr = FVALG(this_entry); in undouble_callee_args_llvmf90()
|
H A D | interf.c | 4380 fval = FVALG(sptr); in fill_ast() 5909 if (FVALG(sptr) && can_find_symbol(FVALG(sptr))) { in fill_links_symbol() 5911 fval = new_symbol(FVALG(sptr)); in fill_links_symbol() 5941 if (FVALG(sptr)) { in fill_links_symbol() 5943 fval = new_symbol(FVALG(sptr)); in fill_links_symbol()
|
H A D | semant3.c | 559 if (FVALG(gbl.currsub) != sptr && in semant3() 560 strcmp(SYMNAME(FVALG(sptr)), SYMNAME(gbl.currsub)) == 0 && in semant3() 562 strcmp(SYMNAME(sptr), SYMNAME(FVALG(gbl.currsub))) == 0) { in semant3() 4207 rtn = FVALG(func); in semant3() 5885 if (FUNCG(sptr) && ALLOCATTRG(FVALG(sptr)) && CLASSG(FVALG(sptr))) { in check_doconcurrent_ast()
|
H A D | semfunc.c | 660 sptr = FVALG(sptr); in is_ptr_arg() 723 if (FVALG(func_sptr)) in need_tmp_retval() 724 fval = FVALG(func_sptr); in need_tmp_retval() 989 if (FVALG(func_sptr)) in func_call2() 990 fval = FVALG(func_sptr); in func_call2() 1024 CLASSP(return_value, CLASSG(FVALG(func_sptr))); in func_call2() 1072 CLASSP(fval_sptr, CLASSG(FVALG(func_sptr))); in func_call2() 1073 CLASSP(sym_of_ast(return_value), CLASSG(FVALG(func_sptr))); in func_call2() 1615 CLASSP(return_value, CLASSG(FVALG(func_sptr))); in ptrfunc_call() 1649 CLASSP(fval_sptr, CLASSG(FVALG(func_sptr))); in ptrfunc_call()
|
H A D | lowerilm.c | 1184 (RVALLOCG(MIDNUMG(sptr)) && ALLOCATTRG(FVALG(symfunc))) || in handle_arguments() 1369 if (A_TYPEG(a) == A_ID && !NOPASSG(tbp_mem) && FVALG(symfunc) && in handle_arguments() 1370 (POINTERG(FVALG(symfunc)) || ALLOCATTRG(FVALG(symfunc))) && in handle_arguments() 4582 int fval = FVALG(gbl.currsub); in lower_stmt()
|
H A D | transfrm.c | 2669 if (!FVALG(entry)) in use_lhs_for_user_func() 2679 fval = FVALG(entry); in use_lhs_for_user_func() 4087 int fval = FVALG(A_SPTRG(A_LOPG(astsrc))); in rewrite_allocatable_assignment()
|
H A D | semutil.c | 1918 if (FVALG(ent) == sptr) { in test_really_an_entry() 1922 if (sptr == FVALG(gbl.outersub)) { in test_really_an_entry() 2020 if (FVALG(sptr) == 0 && DTYPEG(sptr) == 0) { in mkvarref() 4245 isFuncCall = (RESULTG(dest_sptr) && FVALG(gbl.currsub) != dest_sptr); in gen_contig_check()
|
H A D | semgnr.c | 1444 if (FVALG(func)) { in check_defined_io2()
|
H A D | bblock.c | 1542 mark(FVALG(sptr), limit); in mark_symbol()
|
H A D | dump.c | 3305 putnsym("fval", FVALG(0)); in dsym() 3521 putnsym("fval", FVALG(0)); in dsym()
|
H A D | semutil2.c | 13005 if (!FUNCG(sptr) && FVALG(sptr) > NOSYM) { in fix_symtab() 13011 if (aux.dpdsc_base[DPDSCG(sptr)] == FVALG(sptr)) { in fix_symtab() 13019 DTYPEP(sptr, DTYPEG(FVALG(sptr))); in fix_symtab() 13036 if (!FUNCG(sptr) && FVALG(sptr) > NOSYM) { in fix_symtab() 13038 if (aux.dpdsc_base[DPDSCG(sptr)] == FVALG(sptr)) { in fix_symtab() 13046 DTYPEP(sptr, DTYPEG(FVALG(sptr))); in fix_symtab()
|
H A D | lowerexp.c | 1972 retdesc = check_return(DTYPEG(FVALG(symfunc))); in lower_function() 2175 int retdesc = check_return(DTYPEG(FVALG(symfunc))); in lower_function()
|
/dports/math/libpgmath/flang-d07daf3/tools/shared/ |
H A D | symfun.h | 401 ST_GetterInstance(FVALG, SPTR, FValue) 402 #undef FVALG 403 #define FVALG(X) STGetFValue(X) macro
|