/dports/math/libpgmath/flang-d07daf3/tools/flang2/flang2exe/ |
H A D | ll_ftn.cpp | 160 ll_process_routine_parameters(gbl.currsub); in stb_process_routine_parameters() 201 if (func_sptr != gbl.currsub) { in get_ftn_func_name() 202 if (!gbl.currsub) in get_ftn_func_name() 207 has_multiple_entries(gbl.currsub))) { in get_ftn_func_name() 709 if (!gbl.currsub) in fix_llvm_fptriface() 764 if (!gbl.currsub) in store_llvm_localfptr() 794 name = get_llvm_name(gbl.currsub); in get_local_overlap_size() 896 int sptr = gbl.currsub; in get_entries_argnum() 897 int fval = FVALG(gbl.currsub); in get_entries_argnum() 906 master_sptr = make_new_funcsptr(gbl.currsub); in get_entries_argnum() [all …]
|
H A D | main.cpp | 248 gbl.ompaccel_intarget = ompaccel_tinfo_has(gbl.currsub); in process_input() 271 direct_rou_load(gbl.currsub); in process_input() 328 if (flg.omptarget && ompaccel_tinfo_has(gbl.currsub)) in process_input() 887 gbl.currsub = SPTR_NULL; in reinit() 1064 SPTR cur_func_sptr = gbl.currsub; in ompaccel_create_globalctor() 1069 gbl.currsub = cur_func_sptr; in ompaccel_create_globalctor() 1080 if (gbl.ompaccel_intarget && gbl.currsub != NULL) { in ompaccel_create_reduction_wrappers() 1083 SPTR cur_func_sptr = gbl.currsub; in ompaccel_create_reduction_wrappers() 1108 gbl.currsub = cur_func_sptr; in ompaccel_create_reduction_wrappers()
|
H A D | llassem.cpp | 361 if (sptr == gbl.currsub && gbl.rutype == RU_PROG) in get_ag_searchnm() 428 gblsym = get_ag(gbl.currsub); in assemble() 499 if (gbl.currsub) in generate_struct_dtype() 3573 if (gbl.currsub && (CUDAG(gbl.currsub) & CUDA_CONSTRUCTOR)) { in getsname() 3822 char *nm = SYMNAME(gbl.currsub); in get_main_progname() 3835 if (gbl.currsub) in set_ag_ref() 3950 ENCLFUNCP(sptr, gbl.currsub); in sym_is_refd() 4823 if (gbl.currsub && (CUDAG(gbl.currsub) & CUDA_CONSTRUCTOR) && in get_llvm_name() 5399 DTYPE dtype = DTYPEG(gbl.currsub); in write_module_as_subroutine() 5400 const char *name = get_llvm_name(gbl.currsub); in write_module_as_subroutine() [all …]
|
H A D | expreg.cpp | 90 funcbih = BIHNUMG(gbl.currsub); in reg_assign1()
|
H A D | outliner.cpp | 1883 gbl.currsub = (SPTR)llReadILMHeader(); // ??? in ll_set_outlined_currsub() 1885 prev_func_sptr = gbl.currsub; in ll_set_outlined_currsub() 1886 scope_sptr = OUTLINEDG(gbl.currsub); in ll_set_outlined_currsub() 1887 if (scope_sptr && gbl.currsub) in ll_set_outlined_currsub() 1890 if(DBGBIT(233,2) && gbl.currsub) { in ll_set_outlined_currsub() 1892 fprintf(fp, "[Outliner] GBL_CURRFUNC is set %s\n", SYMNAME(gbl.currsub)); in ll_set_outlined_currsub() 2013 display_temp = getccsym('S', gbl.currsub, ST_VAR); in llvmAddConcurEntryBlk()
|
H A D | cgmain.cpp | 648 if (!has_multiple_entries(gbl.currsub)) in analyze_ret_info() 688 DTYPE dtype = DTYPEG(gbl.currsub); in gen_return_operand() 724 if (CFUNCG(gbl.currsub) && in gen_return_operand() 1091 const int fnSym = gbl.currsub; in store_for_homing() 2979 if (has_multiple_entries(gbl.currsub) && FVALG(gbl.currsub) && in write_instructions() 10662 char *curfnm = getsname(gbl.currsub); in process_blockaddr_sptr() 10981 return CUDAG(gbl.currsub) & cudag; in compilingGlobalOrDevice() 13276 if (!has_multiple_entries(gbl.currsub)) in insert_jump_entry_instr() 13596 if (gbl.currsub>NOSYM) { in process_global_lifetime_debug() 13597 if (CUDAG(gbl.currsub) && in process_global_lifetime_debug() [all …]
|
/dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/ |
H A D | main.c | 228 if (gbl.currsub) { in main() 229 if (SCOPEG(gbl.currsub)) { in main() 236 stb.curr_scope = gbl.currsub; in main() 247 if (gbl.currsub == 0) { in main() 278 ipa_startfunc(gbl.currsub); in main() 279 ipa_header1(gbl.currsub); in main() 280 ipa_header2(gbl.currsub); in main() 294 direct_rou_load(gbl.currsub); in main() 467 direct_rou_load(gbl.currsub); in main() 531 gbl.outersub = gbl.currsub; in main() [all …]
|
H A D | semant.c | 1411 if (gbl.currsub) in semant1() 1728 if (STYPEG(gbl.currsub) == ST_ENTRY && FVALG(gbl.currsub) && in semant1() 1895 gbl.currsub = mod_add_subprogram(gbl.currsub); in semant1() 2964 gbl.currsub = 0; in semant1() 7880 if ((gbl.currsub && CUDAG(gbl.currsub) && in semant1() 7899 if ((gbl.currsub && CUDAG(gbl.currsub) && in semant1() 10704 if (gbl.currsub && sem_strcmp(np, SYMNAME(gbl.currsub)) == 0) { in semant1() 12294 gbl.currsub = 0; in pop_subprogram() 12483 state->currsub = gbl.currsub; in save_host() 12493 gbl.currsub = 0; in save_host() [all …]
|
H A D | inliner.c | 170 sCurrFunc = SYMNAME(gbl.currsub); in extractor_possible() 190 SYMNAME(gbl.currsub), NULL); in extractor_possible() 212 SYMNAME(gbl.currsub), NULL); in extractor_possible() 231 SYMNAME(gbl.currsub), NULL); in extractor_possible() 241 SYMNAME(gbl.currsub), NULL); in extractor_possible() 284 SYMNAME(gbl.currsub), NULL); in extractor_possible() 304 SYMNAME(gbl.currsub), NULL); in extractor_possible() 312 SYMNAME(gbl.currsub), NULL); in extractor_possible() 320 SYMNAME(gbl.currsub), NULL); in extractor_possible() 328 SYMNAME(gbl.currsub), NULL); in extractor_possible() [all …]
|
H A D | assem.c | 122 size, getprint(sptr), getprint((int)gbl.currsub)); in sym_is_refd() 153 addr, size, getprint(sptr), getprint((int)gbl.currsub)); in sym_is_refd() 169 addr, size, getprint(sptr), getprint((int)gbl.currsub)); in sym_is_refd()
|
H A D | global.h | 67 SPTR currsub; /* symtab ptr to current subprogram */ member 156 #define GBL_CURRFUNC gbl.currsub
|
H A D | bblock.c | 157 init_newargs(gbl.currsub); in bblock() 158 if (ASSUMSHPG(gbl.currsub)) /* must process before adjustable args */ in bblock() 159 assumshp_args(gbl.currsub); in bblock() 171 ENTNUMP(gbl.currsub, 0); in bblock() 172 if (SYMLKG(gbl.currsub) > NOSYM) { in bblock() 183 ENTSTDP(gbl.currsub, entry_point); in bblock() 365 for (ent = gbl.currsub; ent != NOSYM; ent = SYMLKG(ent)) { in bblock() 390 for (std = ENTSTDG(gbl.currsub); STD_LINENO(std) == 0; in bblock() 1021 func1 = gbl.currsub; in puttwice() 1024 func2 = gbl.currsub; in puttwice() [all …]
|
H A D | exterf.c | 301 (sptr == gbl.currsub || SCOPEG(sptr) == SCOPEG(gbl.currsub))) in export() 326 if (sptr == gbl.currsub || SCOPEG(sptr) == SCOPEG(gbl.currsub)) in export() 339 if (sptr == gbl.currsub || SCOPEG(sptr) == SCOPEG(gbl.currsub)) in export() 351 if (sptr == gbl.currsub || SCOPEG(sptr) == SCOPEG(gbl.currsub)) in export() 562 internal = INTERNALG(gbl.currsub); in export_inline() 563 INTERNALP(gbl.currsub, 1); in export_inline() 568 INTERNALP(gbl.currsub, internal); in export_inline() 834 if (gbl.internal && FVALG(gbl.currsub) && in export_host_subprogram() 1718 } else if (sptr == gbl.currsub) { in queue_symbol() 2267 cs = SCOPEG(gbl.currsub); in export_symbol() [all …]
|
H A D | lower.c | 182 lower_line = FUNCLINEG(gbl.currsub); in lower() 210 switch (DTY(DTYPEG(gbl.currsub))) { in lower() 213 if (!CFUNCG(gbl.currsub)) { in lower() 231 fill_entry_bounds(gbl.currsub, STD_LINENO(std)); in lower() 296 lowersym.outersub = gbl.currsub; in lower()
|
H A D | semfin.c | 346 if (SCOPEG(gbl.currsub)) { in semfin() 355 push_scope_level(gbl.currsub, SCOPE_NORMAL); in semfin() 358 push_scope_level(gbl.currsub, SCOPE_NORMAL); in semfin() 367 in_module = (STYPEG(gbl.currsub) == ST_MODULE); in semfin() 370 (gbl.rutype == RU_BDATA) ? NOSYM : (gbl.currsub ? gbl.currsub : NOSYM); in semfin() 809 return scope == gbl.currsub; in is_in_currsub() 1227 if (sptr == gbl.currsub) { in do_access() 2680 if (gbl.currsub && gbl.currsub != stb.curr_scope) { in do_save() 2681 local_scope = gbl.currsub; in do_save() 3331 FVALG(gbl.currsub) == sptr) { in misc_checks() [all …]
|
H A D | rte.c | 247 lenWithUnderscores(SYMNAME(SCOPEG(gbl.currsub))) + in sym_get_sdescr() 260 } else if (gbl.currsub) { in sym_get_sdescr() 261 sprintf(desc_sym, "%s$%s", mangleUnderscores(SYMNAME(gbl.currsub)), in sym_get_sdescr() 364 if (CUDAG(gbl.currsub) & (CUDA_DEVICE | CUDA_GLOBAL)) { in sym_get_sdescr()
|
H A D | module.c | 1116 gbl.currsub = 0; /* ==> module */ in begin_module() 1290 gbl.currsub = 0; in end_module() 1776 gbl.currsub = modu_sym; /* trick semfin & summary */ in fix_module_common() 1800 gbl.currsub = modu_sym; /* trick semfin */ in fix_module_common() 1956 gbl.currsub = modu_sym; /* trick summary */ in fix_module_common() 1969 if (SCOPEG(cmblk) == gbl.currsub && in has_cuda_data() 2540 if (STYPEG(gbl.currsub) == ST_ALIAS && SYMLKG(gbl.currsub) > NOSYM) { in mod_end_subprogram_two() 2541 DCLDP(SYMLKG(gbl.currsub), 1); in mod_end_subprogram_two() 2542 } else if (STYPEG(gbl.currsub) == ST_ENTRY) { in mod_end_subprogram_two() 2543 DCLDP(gbl.currsub, 1); in mod_end_subprogram_two()
|
H A D | lowersym.c | 2333 if (SCOPEG(iface) == gbl.currsub || ENCLFUNCG(iface) == gbl.currsub) in lower_use_datatype() 2681 if (SCOPEG(iface) == gbl.currsub || ENCLFUNCG(iface) == gbl.currsub) in lower_put_datatype() 3422 if (sptr == gbl.currsub) { in putstype() 3842 if (SCOPEG(sptr) == gbl.currsub) in lower_symbol() 3922 if (sptr == gbl.currsub) { in lower_symbol() 4037 if (sptr != gbl.currsub) in lower_symbol() 4051 putbit("currsub", sptr == gbl.currsub); in lower_symbol() 4724 if (FVALG(gbl.currsub) == sptr) { in lower_symbols() 5110 lower_visit_symbol(gbl.currsub); in lower_mark_entries() 5525 (gbl.currsub && gbl.currsub == SCOPEG(sptr) && in stb_fixup_llvmiface() [all …]
|
H A D | semsym.c | 89 if (scope && STYPEG(scope) == ST_ENTRY && scope != gbl.currsub) in isLocalPrivate() 242 if (is_used_by_submod(gbl.currsub, sptr)) in sym_in_scope() 623 if (SCOPEG(sptr) && SCOPEG(sptr) != gbl.currsub) in set_internref_stfunc() 923 internal_proc_has_ident(sptr, gbl.currsub)) { in declsym() 968 if (SCOPEG(sptr) && SCOPEG(sptr) == SCOPEG(gbl.currsub)) in refsym() 1015 if (gbl.currsub == sptr) in refsym_inscope() 1100 if (!sem.ieee_features || STYPEG(gbl.currsub) == ST_MODULE) in enforce_denorm() 1478 if (gbl.internal > 1 && SCOPEG(sptr) == SCOPEG(gbl.currsub)) { in ref_based_object_sc()
|
H A D | semant3.c | 254 if (gbl.currsub) { in semant3() 255 if (PUREG(gbl.currsub)) in semant3() 256 error(155, 3, gbl.lineno, SYMNAME(gbl.currsub), in semant3() 258 else if (ELEMENTALG(gbl.currsub)) in semant3() 259 error(155, 3, gbl.lineno, SYMNAME(gbl.currsub), in semant3() 559 if (FVALG(gbl.currsub) != sptr && in semant3() 564 sptr = gbl.currsub; in semant3() 1591 if (gbl.currsub && PUREG(gbl.currsub)) in semant3() 1592 error(155, 2, gbl.lineno, SYMNAME(gbl.currsub), in semant3() 1708 if (gbl.currsub && PUREG(gbl.currsub)) in semant3() [all …]
|
H A D | lowerilm.c | 1095 if (symfunc == gbl.currsub) { in handle_arguments() 1344 sdsc = get_type_descr_arg(gbl.currsub, memsym_of_ast(a)); in handle_arguments() 1357 int currsub; in handle_arguments() local 1389 currsub = gbl.currsub; in handle_arguments() 1393 if (SCOPEG(currsub) && STYPEG(SCOPEG(currsub)) == ST_ALIAS && in handle_arguments() 1394 STYPEG(SYMLKG(SCOPEG(currsub))) != ST_MODULE) { in handle_arguments() 1395 currsub = SYMLKG(SCOPEG(currsub)); in handle_arguments() 1400 sdsc = get_type_descr_arg(currsub, memsym_of_ast(a)); in handle_arguments() 3575 poly_dsc = get_type_descr_arg(gbl.currsub, sptr); in lower_stmt() 4582 int fval = FVALG(gbl.currsub); in lower_stmt() [all …]
|
H A D | fgraph.c | 634 STD_LINENO(0) = FUNCLINEG(gbl.currsub); in partition_blocks() 635 STD_LABEL(0) = gbl.currsub; in partition_blocks() 639 FG_LINENO(1) = FUNCLINEG(gbl.currsub); in partition_blocks()
|
/dports/math/libpgmath/flang-d07daf3/tools/shared/utils/ |
H A D | global.h | 66 SPTR currsub; /* symtab ptr to current subprogram */ member 163 #define GBL_CURRFUNC gbl.currsub
|
/dports/math/libpgmath/flang-d07daf3/tools/shared/ |
H A D | direct.c | 363 fnp = SYMNAME(gbl.currsub); in direct_rou_load() 386 …on_level_for_OP1_changed_to_opt_1_OP2, ERR_Informational, 0, SYMNAME(gbl.currsub), "due to assigne… in direct_rou_load() 396 …on_level_for_OP1_changed_to_opt_1_OP2, ERR_Informational, 0, SYMNAME(gbl.currsub), "due to < > in … in direct_rou_load()
|
H A D | pragma.c | 578 if (gbl.currsub != 0) in do_sw() 1389 if (do_now || (gbl.currsub == 0 && sem.pgphase == 0)) { in assn() 1412 if (do_now || (gbl.currsub == 0 && sem.pgphase == 0)) { in bset() 1436 if (do_now || (gbl.currsub == 0 && sem.pgphase == 0)) { in bclr()
|