Home
last modified time | relevance | path

Searched refs:FVALG (Results 1 – 25 of 35) sorted by relevance

12

/dports/math/libpgmath/flang-d07daf3/tools/flang2/flang2exe/
H A Dll_ftn.cpp308 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 Dexp_rte.cpp250 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 Dsymtab.cpp1247 (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 Dsemfin.c295 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 Dlowersym.c1092 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 Dsymtab.c2539 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 Dsemfunc2.c1320 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 Dsemtbp.c324 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 Dexterf.c691 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 Dsemant.c2028 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 Dsemsym.c646 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 Drest.c1487 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 Ddpm_out.c1710 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 Dinterf.c4380 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 Dsemant3.c559 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 Dsemfunc.c660 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 Dlowerilm.c1184 (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 Dtransfrm.c2669 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 Dsemutil.c1918 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 Dsemgnr.c1444 if (FVALG(func)) { in check_defined_io2()
H A Dbblock.c1542 mark(FVALG(sptr), limit); in mark_symbol()
H A Ddump.c3305 putnsym("fval", FVALG(0)); in dsym()
3521 putnsym("fval", FVALG(0)); in dsym()
H A Dsemutil2.c13005 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 Dlowerexp.c1972 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 Dsymfun.h401 ST_GetterInstance(FVALG, SPTR, FValue)
402 #undef FVALG
403 #define FVALG(X) STGetFValue(X) macro

12