| /dports/math/libpgmath/flang-d07daf3/tools/flang1/flang1exe/ |
| H A D | semsym.c | 61 if (GSAMEG(sptr2) && isGenericOrProcOrModproc(sptr1) && in isSameNameGenericOrProcOrModproc()
63 return NMPTRG(sptr1) == NMPTRG(GSAMEG(sptr2)); in isSameNameGenericOrProcOrModproc()
663 GSAMEG(sptr)) { in declsym()
667 sptr = GSAMEG(sptr); in declsym()
681 GSAMEG(sptr1)) { in declsym()
682 sptr = GSAMEG(sptr1); in declsym()
787 if (GSAMEG(sptr) == 0 && (stype == ST_ENTRY || stype == ST_MODPROC)) { in declsym()
816 if (GSAMEG(sptr)) { in declsym()
817 GSAMEP(sptr1, GSAMEG(sptr)); in declsym()
818 GSAMEP(GSAMEG(sptr), sptr1); in declsym()
|
| H A D | exterf.c | 1832 if (GSAMEG(sptr)) in queue_symbol()
1833 queue_symbol((int)GSAMEG(sptr)); in queue_symbol()
1980 if (GSAMEG(sptr)) in queue_symbol()
1981 queue_symbol((int)GSAMEG(sptr)); in queue_symbol()
1990 if (GSAMEG(sptr)) in queue_symbol()
1991 queue_symbol((int)GSAMEG(sptr)); in queue_symbol()
2008 if (GSAMEG(sptr)) in queue_symbol()
2009 queue_symbol((int)GSAMEG(sptr)); in queue_symbol()
|
| H A D | module.c | 392 if (STYPEG(ng) == ST_PROC && GSAMEG(ng) && in add_only()
393 SCOPEG(GSAMEG(ng)) == SCOPEG(newglobal)) { in add_only()
395 newglobal = GSAMEG(ng); in add_only()
657 if (STYPEG(ng) == ST_PROC && GSAMEG(ng) && in apply_use()
658 SCOPEG(GSAMEG(ng)) == SCOPEG(newglobal)) { in apply_use()
660 newglobal = GSAMEG(ng); in apply_use()
|
| H A D | semfunc2.c | 666 if (GSAMEG(sptr)) { in mkarg()
668 sptr = GSAMEG(sptr); in mkarg()
695 else if (sp2 != GSAMEG(sptr)) { in mkarg()
1189 if (GSAMEG(sptr)) { in chkarg()
1190 sptr = GSAMEG(sptr); in chkarg()
1399 if ((spec = GSAMEG(gnr)) == 0) in select_gsame()
|
| H A D | interf.c | 2998 if (GSAMEG(sptr)) { in import()
2999 s = new_symbol(GSAMEG(sptr)); in import()
5927 if (GSAMEG(sptr)) in fill_links_symbol()
5928 GSAMEP(sptr, new_symbol(GSAMEG(sptr))); in fill_links_symbol()
6096 if (GSAMEG(sptr)) in fill_links_symbol()
6097 GSAMEP(sptr, new_symbol(GSAMEG(sptr))); in fill_links_symbol()
6104 if (GSAMEG(sptr)) in fill_links_symbol()
6105 GSAMEP(sptr, new_symbol(GSAMEG(sptr))); in fill_links_symbol()
6106 if (SYMLKG(sptr) && GSAMEG(sptr)) { in fill_links_symbol()
6109 GSAMEP(SYMLKG(sptr), GSAMEG(sptr)); /* ST_ENTRY -> generic */ in fill_links_symbol()
[all …]
|
| H A D | symtab.c | 1417 fprintf(dfil, " gsame: %d\n", (int)GSAMEG(sptr)); in symdentry()
1500 fprintf(dfil, " gsame: %d", (int)GSAMEG(sptr)); in symdentry()
1586 GSAMEG(sptr), GNCNTG(sptr), GNDSCG(sptr), PRIVATEG(sptr), in symdentry()
1597 EXPSTG(sptr), TYPDG(sptr), GSAMEG(sptr), GSINTG(sptr), GINTG(sptr), in symdentry()
1681 SYMLKG(sptr), SYMIG(sptr), (int)GSAMEG(sptr), PRIVATEG(sptr)); in symdentry()
|
| H A D | dump.c | 3029 putnsym("gsame", GSAMEG(0)); in dsym()
3303 putnsym("gsame", GSAMEG(0)); in dsym()
3408 putnsym("gsame", GSAMEG(0)); in dsym()
3519 putnsym("gsame", GSAMEG(0)); in dsym()
3786 putnsym("gsame", GSAMEG(0)); in dsym()
4022 putnsym("gsame", GSAMEG(0)); in dsym()
|
| H A D | semfin.c | 1340 if (STYPEG(sptr) == ST_PROC && GSAMEG(sptr)) { in do_access()
1344 PRIVATEP(GSAMEG(sptr), accessp->type == 'v'); in do_access()
1367 if (GSAMEG(sptr)) in do_access()
1368 PRIVATEP(GSAMEG(sptr), accessp->type == 'v'); in do_access()
|
| H A D | semutil.c | 1417 if (GSAMEG(sptr)) in mklvalue()
1419 DTYPEP(sptr, DTYPEG(GSAMEG(sptr))); in mklvalue()
2027 if (GSAMEG(sptr)) { in mkvarref()
2029 return generic_func(GSAMEG(sptr), stktop, list); in mkvarref()
2061 if (GSAMEG(sptr)) in mkvarref()
2062 return generic_func(GSAMEG(sptr), stktop, list); in mkvarref()
|
| H A D | semfunc.c | 3316 if (GSAMEG(sptr) && check_generic) { in subr_call2()
3321 generic_call(GSAMEG(sptr), stktop, list, 0); in subr_call2()
3363 if (GSAMEG(sptr) && check_generic) { in subr_call2()
3368 generic_call(GSAMEG(sptr), stktop, list, 0); in subr_call2()
|
| H A D | lowersym.c | 4562 putval("gsame", GSAMEG(sptr)); in lower_symbol()
|
| H A D | semant.c | 14118 iface = GSAMEG(iface); in _do_iface()
|
| /dports/math/libpgmath/flang-d07daf3/tools/shared/ |
| H A D | symfun.h | 429 ST_GetterInstance(GSAMEG, SPTR, GSame)
430 #undef GSAMEG
431 #define GSAMEG(X) STGetGSame(X) macro
|
| /dports/math/libpgmath/flang-d07daf3/tools/flang2/utils/symtab/ |
| H A D | symtab.in.h | 103 #undef GSAMEG
117 #define GSAMEG(s) (INT)(( stb.stg_base)[s].w14) macro
|
| /dports/math/libpgmath/flang-d07daf3/tools/flang2/flang2exe/ |
| H A D | symtab.cpp | 1412 fprintf(dfil, "gsame: %d gncnt:%d gndsc:%d\n", (int)GSAMEG(sptr), in symdentry()
1426 (int)GSAMEG(sptr)); in symdentry()
|
| H A D | mwd.cpp | 1746 putnsym("gsame", GSAMEG(0)); in dsym()
1854 putnsym("gsame", GSAMEG(0)); in dsym()
|
| H A D | upper.cpp | 3149 if (GSAMEG(i) == 0) { in read_symbol()
3154 i = GSAMEG(i); /* function to use if same name */ in read_symbol()
|