Home
last modified time | relevance | path

Searched refs:currsub (Results 1 – 25 of 58) sorted by relevance

123

/dports/math/libpgmath/flang-d07daf3/tools/flang2/flang2exe/
H A Dll_ftn.cpp160 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 Dmain.cpp248 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 Dllassem.cpp361 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 Dexpreg.cpp90 funcbih = BIHNUMG(gbl.currsub); in reg_assign1()
H A Doutliner.cpp1883 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 Dcgmain.cpp648 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 Dmain.c228 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 Dsemant.c1411 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 Dinliner.c170 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 Dassem.c122 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 Dglobal.h67 SPTR currsub; /* symtab ptr to current subprogram */ member
156 #define GBL_CURRFUNC gbl.currsub
H A Dbblock.c157 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 Dexterf.c301 (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 Dlower.c182 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 Dsemfin.c346 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 Drte.c247 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 Dmodule.c1116 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 Dlowersym.c2333 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 Dsemsym.c89 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 Dsemant3.c254 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 Dlowerilm.c1095 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 Dfgraph.c634 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 Dglobal.h66 SPTR currsub; /* symtab ptr to current subprogram */ member
163 #define GBL_CURRFUNC gbl.currsub
/dports/math/libpgmath/flang-d07daf3/tools/shared/
H A Ddirect.c363 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 Dpragma.c578 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()

123