Home
last modified time | relevance | path

Searched refs:dpdsc_base (Results 1 – 25 of 42) sorted by relevance

12

/dports/math/libpgmath/flang-d07daf3/tools/flang2/flang2exe/
H A Dll_ftn.cpp135 int param = aux.dpdsc_base[dpdsc + i]; in stb_process_iface_chlen()
672 int *dpdscp = (int *)(aux.dpdsc_base + DPDSCG(func_sptr)); in llvm_args_valid()
910 dpdscp = (int *)(aux.dpdsc_base + DPDSCG(sptr)); in get_entries_argnum()
927 NEED(aux.dpdsc_avl + 1, aux.dpdsc_base, int, aux.dpdsc_size, in get_entries_argnum()
929 aux.dpdsc_base[master_dpdsc] = opt; in get_entries_argnum()
942 aux.dpdsc_base[master_dpdsc + 1] = opt; in get_entries_argnum()
955 aux.dpdsc_base[master_dpdsc + i] = param_sptr; in get_entries_argnum()
968 dpdscp = (int *)(aux.dpdsc_base + DPDSCG(sptr)); in get_entries_argnum()
1038 dpdscp = (SPTR *)(aux.dpdsc_base + DPDSCG(sptr)); in write_dummy_as_local_in_entry()
1208 dpdscp = (int *)(aux.dpdsc_base + DPDSCG(master_sptr)); in print_entry_subroutine()
[all …]
H A Doutliner.cpp457 sym = (SPTR)aux.dpdsc_base[dpdscp++]; in ll_get_shared_arg()
475 NEED(aux.dpdsc_avl, aux.dpdsc_base, int, aux.dpdsc_size, in ll_make_ftn_outlined_params()
490 aux.dpdsc_base[dpdscp++] = sym; in ll_make_ftn_outlined_params()
510 NEED(aux.dpdsc_avl, aux.dpdsc_base, int, aux.dpdsc_size, in llMakeFtnOutlinedSignature()
528 aux.dpdsc_base[dpdscp++] = sym; in llMakeFtnOutlinedSignature()
1813 sym = (SPTR)aux.dpdsc_base[dpdscp + (whicharg - 1)]; // ??? in ll_get_hostprog_arg()
2347 NEED(aux.dpdsc_avl, aux.dpdsc_base, int, aux.dpdsc_size, in llMakeFtnOutlinedSignatureTarget()
2356 aux.dpdsc_base[dpdscp++] = sym; in llMakeFtnOutlinedSignatureTarget()
H A Dexp_rte.cpp596 dpdscp = (int *)(aux.dpdsc_base + DPDSCG(func)); in pp_entries()
896 dpdscp = (int *)(aux.dpdsc_base + DPDSCG(func)); in pp_entries_mixedstrlen()
1209 dpdscp = (int *)(aux.dpdsc_base + DPDSCG(func)); in has_desc_arg()
1236 dpdscp = (int *)(aux.dpdsc_base + DPDSCG(func)); in check_desc()
1303 dpdscp = (int *)(aux.dpdsc_base + DPDSCG(func)); in check_desc_args()
1332 dpdscp = (int *)(aux.dpdsc_base + DPDSCG(func)); in func_has_char_args()
1468 dpdscp = (int *)(aux.dpdsc_base + DPDSCG(func)); in pp_params()
1693 dpdscp = (int *)(aux.dpdsc_base + DPDSCG(func)); in pp_params_mixedstrlen()
H A Dupper.cpp777 param = aux.dpdsc_base[dpdsc + i]; in upper()
2633 NEED(aux.dpdsc_avl, aux.dpdsc_base, int, aux.dpdsc_size, in read_symbol()
2637 aux.dpdsc_base[dpdsc + i] = getnum(); in read_symbol()
2937 NEED(aux.dpdsc_avl, aux.dpdsc_base, int, aux.dpdsc_size, in read_symbol()
2941 aux.dpdsc_base[dpdsc + i] = getnum(); in read_symbol()
3884 param = aux.dpdsc_base[dpdsc + i]; in fix_symbol()
3886 aux.dpdsc_base[dpdsc + i] = param; in fix_symbol()
H A Dompaccel.cpp493 NEED(aux.dpdsc_avl, aux.dpdsc_base, int, aux.dpdsc_size, in mk_ompaccel_function()
498 aux.dpdsc_base[dpdscp++] = sym; in mk_ompaccel_function()
801 aux.dpdsc_base[paramct] = sym; in add_symbol_to_function()
H A Dsymtab.cpp185 NEW(aux.dpdsc_base, int, aux.dpdsc_size); in sym_init()
1277 fprintf(dfil, "sptr = %d\n", *(aux.dpdsc_base + dscptr)); in symdentry()
H A Ddtypeutl.cpp992 fprintf(outfile, " arg %d: %d\n", i + 1, aux.dpdsc_base[dpdsc + i]); in _dmp_dent()
/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/
H A Dsemgnr.c630 arg = *(aux.dpdsc_base + dscptr); in args_match()
1021 int arg = *(aux.dpdsc_base + dscptr); in find_operator()
1501 psptr = *(aux.dpdsc_base + dpdsc); in check_defined_io2()
1542 psptr = *(aux.dpdsc_base + dpdsc + 1); in check_defined_io2()
1563 psptr = *(aux.dpdsc_base + dpdsc + 2); in check_defined_io2()
1588 psptr = *(aux.dpdsc_base + dpdsc + 3); in check_defined_io2()
1626 psptr = *(aux.dpdsc_base + dpdsc); in check_defined_io2()
1667 psptr = *(aux.dpdsc_base + dpdsc + 1); in check_defined_io2()
1688 psptr = *(aux.dpdsc_base + dpdsc + 2); in check_defined_io2()
1705 psptr = *(aux.dpdsc_base + dpdsc + 3); in check_defined_io2()
[all …]
H A Dsymtab.c247 aux.dpdsc_base[0] = 0; in sym_init()
1443 if (aux.dpdsc_base[dscptr]) in symdentry()
1513 if (aux.dpdsc_base[dscptr]) in symdentry()
2543 psptr = *(aux.dpdsc_base + dpdsc); in cmp_interfaces()
2696 psptr = aux.dpdsc_base[dpdsc]; in cmp_interfaces_strict()
2703 psptr2 = aux.dpdsc_base[dpdsc2]; in cmp_interfaces_strict()
2721 psptr = aux.dpdsc_base[dpdsc + i]; in cmp_interfaces_strict()
2789 psptr2 = aux.dpdsc_base[dpdsc2]; in cmp_interfaces_strict()
2790 psptr = aux.dpdsc_base[dpdsc]; in cmp_interfaces_strict()
3266 if (aux.dpdsc_base) { in symtab_fini()
[all …]
H A Dsemtbp.c329 psptr = *(aux.dpdsc_base + dpdsc); in initFinalSub()
469 psptr = *(aux.dpdsc_base + dpdsc); in semCheckTbp()
591 psptr = *(aux.dpdsc_base + dpdsc); in semCheckTbp()
654 psptr = *(aux.dpdsc_base + dpdsc); in semCheckTbp()
714 psptr2 = *(aux.dpdsc_base + dpdsc2); in semCheckTbp()
715 psptr = *(aux.dpdsc_base + dpdsc); in semCheckTbp()
790 psptr2 = *(aux.dpdsc_base + dpdsc2); in semCheckTbp()
791 psptr = *(aux.dpdsc_base + dpdsc); in semCheckTbp()
938 psptr = *(aux.dpdsc_base + (dpdsc + arg)); in resolvePass()
1415 psptr = *(aux.dpdsc_base + dpdsc + i); in resolveImp()
[all …]
H A Dsemfin.c236 memcpy(&aux.dpdsc_base[new_dsc], &aux.dpdsc_base[DPDSCG(func_sptr)], in inject_arg()
237 old_args * sizeof *aux.dpdsc_base); in inject_arg()
238 memmove(&aux.dpdsc_base[new_dsc + position + 1], in inject_arg()
239 &aux.dpdsc_base[new_dsc + position], in inject_arg()
241 aux.dpdsc_base[new_dsc + position] = arg_sptr; in inject_arg()
254 int arg_sptr = aux.dpdsc_base[dscptr + j]; in have_class_args_been_fixed_already()
377 arg = aux.dpdsc_base[i]; in semfin()
403 arg = aux.dpdsc_base[i]; in semfin()
532 arg = aux.dpdsc_base[dpdsc + i]; in semfin()
632 aux.dpdsc_base[DTY(procdt + 4)] = fval; in semfin()
[all …]
H A Ddpm_out.c1206 arg = aux.dpdsc_base[dscptr]; in use_dummy_desc()
1700 int arg = aux.dpdsc_base[dscptr + i]; in undouble_callee_args_f90()
1720 arg = aux.dpdsc_base[dscptr + i]; in undouble_callee_args_f90()
2582 arg = aux.dpdsc_base[dscptr]; in newargs_for_entry()
2631 arg = aux.dpdsc_base[dscptr]; in newargs_for_entry()
2748 arg = aux.dpdsc_base[dscptr + argnum]; in interface_for_entry()
2878 isptr = aux.dpdsc_base[dscptr + iarg]; in reorder_args()
4470 arg = aux.dpdsc_base[dscptr + i]; in declare_array_dummys()
4665 arg = aux.dpdsc_base[dscptr + i]; in set_actual()
5365 arg = aux.dpdsc_base[dscptr + argnum]; in interface_for_llvmiface()
[all …]
H A Dlowersym.c117 psptr = *(aux.dpdsc_base + dpdsc + i); in has_opt_args()
2029 int param = aux.dpdsc_base[params + i]; in lower_visit_symbol()
2067 int param = aux.dpdsc_base[params + i]; in lower_visit_symbol()
2341 int param = aux.dpdsc_base[params + i]; in lower_use_datatype()
4123 if (aux.dpdsc_base[params + i]) { in lower_symbol()
4149 if (aux.dpdsc_base[params + i]) { in lower_symbol()
4472 if (aux.dpdsc_base[params + i]) { in lower_symbol()
4516 if (aux.dpdsc_base[params + i]) { in lower_symbol()
5120 int parm = aux.dpdsc_base[params + i]; in lower_mark_entries()
5137 int parm = aux.dpdsc_base[params + i]; in lower_mark_entries()
[all …]
H A Dsemfunc2.c1502 if ((arg = *(aux.dpdsc_base + dpdsc))) { in make_keyword_str()
2116 farg = *(aux.dpdsc_base + fdscptr); in compat_arg_lists()
2117 aarg = *(aux.dpdsc_base + adscptr); in compat_arg_lists()
2185 if (pdum == aux.dpdsc_base[dpdsc + i]) { in chk_arguments()
2223 arg = aux.dpdsc_base[dpdsc]; in chk_arguments()
3039 NEED(aux.dpdsc_avl, aux.dpdsc_base, int, aux.dpdsc_size, in iface_intrinsic()
3041 aux.dpdsc_base[dpdsc - 1] = fval; in iface_intrinsic()
3064 aux.dpdsc_base[dpdsc] = arg; in iface_intrinsic()
H A Dexterf.c688 int arg = aux.dpdsc_base[dpdsc]; in export_some_procedure()
695 if (aux.dpdsc_base[dpdsc] == FVALG(sptr)) { in export_some_procedure()
708 int arg = aux.dpdsc_base[dpdsc]; in export_some_args()
1634 for (dscptr = aux.dpdsc_base + DTY(dtype + 4); paramct > 0; paramct--) { in queue_dtype()
1837 arg = aux.dpdsc_base[dscptr]; in queue_symbol()
2130 for (dscptr = aux.dpdsc_base + DTY(dtype + 4); paramct > 0; paramct--) { in export_dt()
2630 lzprintf(outlz, " %d", aux.dpdsc_base[dscptr]); in export_symbol()
H A Dsemant.c687 psptr = *(aux.dpdsc_base + dpdsc); in reloc_byvalue_parameters()
1847 *(aux.dpdsc_base + (aux.dpdsc_avl++)) = 0; in semant1()
1853 *(aux.dpdsc_base + (aux.dpdsc_avl)) = 0; in semant1()
2142 *(aux.dpdsc_base + (aux.dpdsc_avl++)) = 0; in semant1()
2148 *(aux.dpdsc_base + (aux.dpdsc_avl)) = 0; in semant1()
6193 sptr2 = *(aux.dpdsc_base + i + count); in semant1()
10720 sptr = *(aux.dpdsc_base + i + count); in semant1()
13865 int sptr = aux.dpdsc_base[dpdsc + i]; in fix_proc_ptr_dummy_args()
14168 dscptr = aux.dpdsc_base + DPDSCG(iface); in _do_iface()
14174 aux.dpdsc_base[dpdsc + j] = arg; in _do_iface()
[all …]
H A Drest.c1248 f_descr = aux.dpdsc_base[dscptr + 0]; in transform_call()
1258 inface_arg = aux.dpdsc_base[dscptr + i]; in transform_call()
1293 inface_arg = aux.dpdsc_base[dscptr + i]; in transform_call()
1315 inface_arg = aux.dpdsc_base[dscptr + i]; in transform_call()
1372 inface_arg = aux.dpdsc_base[dscptr + i]; in transform_call()
2336 dummy_sptr = aux.dpdsc_base[dscptr + loc]; in is_seq_dummy()
2355 SPTR dummy_sptr = aux.dpdsc_base[dscptr + loc]; in needs_type_in_descr()
3699 sptr1 = aux.dpdsc_base[dscptr + loc]; in is_desc_needed()
H A Dinterf.c2200 NEED(aux.dpdsc_avl, aux.dpdsc_base, int, aux.dpdsc_size, in import()
2203 aux.dpdsc_base[dscptr + i] = get_num(10); /* (old) arg */ in import()
2955 NEED(aux.dpdsc_avl, aux.dpdsc_base, int, aux.dpdsc_size, in import()
2957 aux.dpdsc_base[dscptr - 1] = 0; in import()
2969 aux.dpdsc_base[dscptr++] = s; in import()
4083 ns = new_symbol(aux.dpdsc_base[dpdsc + i]); in install_dtype()
4084 aux.dpdsc_base[dpdsc + i] = ns; in install_dtype()
4091 aux.dpdsc_base[dpdsc - 1] = ns; in install_dtype()
4382 if (aux.dpdsc_base[dpdsc] != fval && aux.dpdsc_base[dpdsc - 1] == 0) { in fill_ast()
4383 aux.dpdsc_base[dpdsc - 1] = fval; in fill_ast()
H A Dinliner.c803 sptrDummy = aux.dpdsc_base[dpdsc + arg]; in missing_optionals()
1086 sptrDummy = aux.dpdsc_base[dsc]; in copy_inargs()
1756 sptrDummy = aux.dpdsc_base[dsc]; in rewrite_inlined_args()
2297 sptrDummy = aux.dpdsc_base[dsc]; in make_arg_copy()
H A Dastout.c3056 sdparam = aux.dpdsc_base[dpdsc + sdi]; in put_call()
3073 param = aux.dpdsc_base[dpdsc + i]; in put_call()
3091 sdparam = aux.dpdsc_base[dpdsc + sdi]; in put_call()
4366 arg = aux.dpdsc_base[dscptr]; in print_header()
H A Dbblock.c426 arg = aux.dpdsc_base[dscptr + i]; in init_newargs()
501 arg = aux.dpdsc_base[dscptr]; in assumshp_args()
H A Dsemfunc.c205 int arg2 = aux.dpdsc_base[dscptr + i]; in get_type_descr_dummy()
322 param_sptr = aux.dpdsc_base[dscptr]; in sc_local_passbyvalue()
456 param_sptr = *(aux.dpdsc_base + byval_dscptr); in inc_dummy_param()
2034 dscptr = aux.dpdsc_base + dpdsc; in count_formal_args()
2382 int old = aux.dpdsc_base[DPDSCG(sem.modhost_proc) + i - 1]; in gen_array_result()
2383 int new = aux.dpdsc_base[DPDSCG(sem.modhost_entry) + i - 1]; in gen_array_result()
2551 int dt_formal = DTYPEG(aux.dpdsc_base[dscptr + i]); in rewrite_triples()
2611 if (sptr == aux.dpdsc_base[dscptr + i]) { in rewrite_subscr()
2719 formalid = aux.dpdsc_base[dscptr + ii]; in replace_arguments()
2888 arg2 = aux.dpdsc_base[dpdsc + i]; in get_generic_member2()
[all …]
H A Dflow.c798 intent = INTENTG(aux.dpdsc_base[idpdsc + i]); in bld_ud()
801 while (j < parmcnt && !needs_descriptor(aux.dpdsc_base[idpdsc + j])) in bld_ud()
804 arg = aux.dpdsc_base[idpdsc + j]; in bld_ud()
/dports/math/libpgmath/flang-d07daf3/tools/flang2/utils/symtab/
H A Dsymtab.in.h278 int *dpdsc_base; member
/dports/math/libpgmath/flang-d07daf3/tools/flang1/utils/symtab/
H A Dsymtab.in.h319 int *dpdsc_base; member

12