/dports/math/libpgmath/flang-d07daf3/tools/flang2/flang2exe/ |
H A D | ll_ftn.cpp | 135 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 D | outliner.cpp | 457 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 D | exp_rte.cpp | 596 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 D | upper.cpp | 777 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 D | ompaccel.cpp | 493 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 D | symtab.cpp | 185 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 D | dtypeutl.cpp | 992 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 D | semgnr.c | 630 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 D | symtab.c | 247 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 D | semtbp.c | 329 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 D | semfin.c | 236 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 D | dpm_out.c | 1206 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 D | lowersym.c | 117 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 D | semfunc2.c | 1502 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 D | exterf.c | 688 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 D | semant.c | 687 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 D | rest.c | 1248 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 D | interf.c | 2200 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 D | inliner.c | 803 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 D | astout.c | 3056 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 D | bblock.c | 426 arg = aux.dpdsc_base[dscptr + i]; in init_newargs() 501 arg = aux.dpdsc_base[dscptr]; in assumshp_args()
|
H A D | semfunc.c | 205 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 D | flow.c | 798 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 D | symtab.in.h | 278 int *dpdsc_base; member
|
/dports/math/libpgmath/flang-d07daf3/tools/flang1/utils/symtab/ |
H A D | symtab.in.h | 319 int *dpdsc_base; member
|